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QUICK LOOK-UP OPERATING INSTRUCTIONS 
YA QUICK REFERENCE, LOOK UP THE FOLLOWING SECTIONS: 
REQUIREMENTS 
LOADING AND OPERATOR ACTION 
SWITCH OPTIONS 
A MORE COMPLETE EXPLANATION REFER TO ye TABLE OF 
TENTS BELOW AND THE FOLLOWING DOCUMENT 
TABLE OF CONTENTS 
ABSTRACT 
REQUIREMENTS 
EQUIPMENT 
PRELIMINARY PROGRAMS 
EXECUTION TIME 
STARTING ADDRESS 
PROGRAM CONTROL MODES & OPERATOR ACTION 
PAPER TAPE 


Caves 
Bo-- oo0D 


0 


z 


RKDP DUMP MODE 
RKDP CHAIN MODE 
ACTLI 

SWITCH OPTIONS 
SCOPE LOOPS 
PROGRAM STRUCTURE 


ERROR REPORTING 
ERROR INTERPRETATION 


0 co N o~ wn FEELS WwW frororrn e- 
oO oO 0 © © £WIUueO OO Wlue-O © 


10.0 HANDLERS AND COMMON Siebel 
10.1 TRAP HANDLER 

10.2 SCOPE HANDLER 

10.3 ERROR HANDLER 

10.4 rol ROL RESET ROUTINE 

10.5 ONTROL READY ROUTINE 

10.6 TIME DELAY ROUTINE 

10.7 CTHER T ; 


ROU INE 
TTY HANDLER (1/0) ERROR TYPEOUT ROUT INE 
POWER DOWN/POWER UP R 


UNEXPECTED TIMEOUTS & RK11 INTERRUPTS 
GUICK VERYFYING MODE 


*-b- 
Tire 
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1.0 ABSTRACT 


cn = ee TESTS CONSIST OF A SERIES OF TESTS 
2 hy CHECKING THE BASIC LOGIC OF THE RK11 
CON ROLLER. 


THE LOGIC TESTS CONSISTS OF TWO PARTS. THIS PROGRAM 
IS PART-I AND IT CHECKS ey THE DRIVE- “TSP ENCENT 
LOGIC OF THE RK11 CONTROLLER (Ses SEC. 9-0). IT 
ane BE NOTED THAT Lens TEST-I AND LOGIC TEST-I1 
TOGETHER CONSTITUTE A COMPLETE PROGRAM AND HENCE 
BOTH OF THEM SHOULD BE RUN. 


USED CORRECTLY THIS eee CAN BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TOOL. 


(9 


REGUIREMENTS 

EQUIPMENT 

2. ag? WITH CONSOLE TELETYPE. 
Cc. RK11 OR RKV11 CONTROLLER 


mM mr 
. . 


| ed 


2.2 PRELIMINARY PROGRAMS 
NONE | 
EXECUTION TIME 


mM 
' i 


ERROR FREE FIRST Pi y ON gna WITH CORE MEMORY 
TAKES APPROXIMATELY of Te. CONSIDERABLY LESS 
FOR FASTER MACHINES OR MEMORIES. 


3.9 STARTING ADDRESS 
200 FOR ANY MODE OF OPERATION. NORMAL START UP WITH 
ALL SWITCHES DOWN. 
4.0 PROGRAM CONTROL MODES & OPERATOR ACTION 
PAPER TAPE LOADING 
RKDP DUMP MODE , 
RKDP CHAIN MODE 
ACT11 
4.1 PAPER TAPE LOADING 


4.1.1 LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
FOR .ABS TAPES. 


MD-L1-DZRAI-E, Be BASIC LOGIC TEST 1 MACYL1 30(1046) O6-JUN-77 14:40 PAGE 5 
oFex 3653} R-7 


4.1.2 PUT THE DRIVES ON ‘WRT PROT’ AND ‘LOAD’ AS A 
PRECAUTION AGAINST MALFUNCTIONING. 


4.1.3 LOAD ADDRESS 200 


4.1.4 SET SWITCHES IF DESIRED (SEE SEC S.C} IF TESTING ON 
SIMULATOR PUT SW 10 UP. 


PRESS START. 
4.1.5 THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO). 


RK11 LOGIC TEST I 
MAINDEC-11-DZRKJ-E 


4.1.6 THEN THE PROGRAM PROCEEDS WITH TESTING. AT THE END 
OF A PASS THE FOLLOWING TYPE-OUT OCCURS 


END PASS # X 


WHERE X= PASS NUMBER (1,2,3---), CONTROL IS PASSED 
TO tHe BEGINNING OF ‘THE PROGRAM AND RE-EXECUTION 


Yi.7 Pa FREE PASSES OF THE PROGRAM APPEAR AS SHOWN 


RK11 LOGIC TEST I 

MAINDEC- = 

END PASS & 

END PASS : 3 4 


RKDP DUMP MODE 


THE PROGRAM IS LOADED INTG THE MEMORY SY ‘THE RKOP 
MONITOR 


4.2.2 START AS NORMALLY USING SA c00 


4.2.3 THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO.) AND 
PROCEEDS WITH TESTING. 


4.3 RKDP CHAIN MODE 


THE PROGRAM IS CHAIN 
THE PROGRAM IDENTIFI 


a ACT11 MODE 
THE PROGRAM IS LOADED BY THE ACT11 MONITOR. _ ON 


STARTING IT PROCEEDS WITH THE EXECUTION OF THE TESTS 
S BEFORE, BUT THE TITLE IS NOT TYPED OUT. 


- 
mw fu 
-~- 


ofeD ies THE RKDP PACK. _AFTER 


=* 
ES ITSELF, IT PROCEEDS WITH TESTING. 


MO=11-0 
oSRk te. 811 


$.0 


-~, 
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SWITCH OPTIONS 
Re ne a roe eae se eng 


of ier Geer HILL OF TERING TST ROE 


I TER. 
WARE ” of ne REGISTER IS LoreLeR AT LOCATION 176 ( T 
ITCHES ARE CONTROLLED THROUGH 6 A KEYBOARD 
ROUTIN Ne “Wiios IS CALLED BY YPING A ’CONTROL G’ on in rent PROGRAM WILL 


CONTROL G’ WHENEVER ie PROGRAM 
Teak ROUTINE 0 BESTYG AIGA ISL 


THE 
AN OCTAL NUMBER IN RESPONSE 
HE PROMPT FROM THE SWITCH ENTRY ROUT ’NE: 
*SWR = NNNNNN NEW =’ 


Bae “fUST BE ENTE es BR ra TEBED a: ROT REQUIRED. SP RUBOLT AND 


"CONTROL U BE USED TO CORRECT TYPING ERROR 
DURING SWITCH UENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS THE "SOFTWARE’ SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM S ALL 1 6 SWITCHES IN THE 
"UP’ POSITION, ALL SWITCH REGISTER REFERENCES bree BE TO THE 

{SOE TWARE” REGISTE ER AND THE PROCEDURES DESCRIBED ABOVE MUST 


(I.E. AN 11/34) 
REGI I 
(8). 


SW<15>=1 HALT ON E 

SW< 14> =1 LOOP ON TEST 

SW< 13>=1 INHIBIT ERROR PRINTOUTS 

SW<12>=1 CYCLE ON ERROR TO THE PREVIOUS 
’SCOPE’ STATEMENT 

SW<ll>=1 INHIBIT ITERATI 

SW<10>=1 TESTING ON SIMULA 

SW<09>=1 LOOP ON SPECIFIC ERROR 

SW 08> =1 LOOP ON TEST AS PER SW<07:00> 

SW 15> 

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER 

TYPING OUT THE ERROR MESSAGE AND PERTINENT 


INFORMATION. PRESSING “CONTINUE” RESTORES NORMAL 
OPERATION OF THE PROGRAM. 


SW< 14> 

THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON. THIS SWITCH IS 
USED NORMALLY ALONG WITH SW 1S. SEE SEC 8.0. 

SW «13> 


THIS SWITCH INHIBITS ALL ERROR SOEs, NORMALLY 
USED WHEN LOOPING ON TEST (SW 14) OR LOOPING ON 


L1-D2R . RK ’ C TEST 1 MACYL1 30° 1046! O6-JUN-77 14:40 PAGE 7 
“we aad i KJ-E St bbe Pe at PG: ES “ 


~ =. *-s 


ERROR (SW 9). 
S.4 SW <le> 
nF — a, _ Be el mi. CYCLE FROM THE 


i. ee ata oe op iy RSTUR Gat eae Ba 


SEE SEC 8 PrEREN SCOPE {ors 


SW <11> 
EACH SUBTEST WILL BE EXECUTED ONLY ONCE. NORMALLY 


AFTER THE FIRST PASS, EACH SUBTEST IS ITERATED A 


NUMBER OF TIMES (USUALLY SO N SES). 
SETTING THIS SWITCH INHIBItS ITERATIONS, $0 Saat 
QUICK PASSES CAN BE MADE. 


S.& SW <10> 


THIS SWITCH WHEN SET INDICATES THAT TESTING IS BEING 
DONE ON A SIMULATOR. THE SWITCH SHOULD BE PUT UP 
BEFORE START- ING THE PROGRAM. NOTE THAT RKIIC IS 
NOT COMPATIBLE WITH THE SIMULATOR. 


5.7 SW <0%> 


THIS SWITCH eS THE TIGHTEST POSSIBLE SCOPE 
LOOP. __NO T UNLIKE SWle THE INITIALIZATION OF 
PARAMETERS . THE BEGINNING OF THE Boe MAY og 
BE DONE IN THIS CASE. THIS SWITCH IS HELPFUL WHEN 

PARTICULAR PART OF A SUBTEST IS BEING EEE on USING 


DIFFERENT 


mas He RT Eat PE she 


PATTERN S61 IS GIV 
GO THROUGH THE ot: MPa aA repre BEFORE SUTTTING ERROR on 
THE S61TH PATTERN. IN THIS CASE SW 9 WILL GIVE YOU 
A SCOPE LOOP ON THE S6ITH PATTERN ONLY. 


5.8 SW <G8> 


THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (AS 
PER SW<00-07>) FOR EXECUTION AND SUBSEQUENT LOOPING. 
THUS IF TEST 15 IS TO a SELECTED THE SWITCH SETTING 

WOULD BE OO0415. IT SHOULD BE NOTED THAT BEFORE 
SELECTING TEST 15, ALL THE PREVIOUS TESTS (1-14) 
WILL BE EXECUTED. 


ul 
ul 


6.0 SCOPE LOOPS 
THERE ARE THREE KINDS OF SCOPE LOOPS AVAILABLE 
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1. SW14: LOOPING IS DONE FOR THE ENTIRE SUS-TEST 


SWl2: LOOPING IS DONE FROM THE POINT OF ERROR 
BACK TO THE PREVIOUS "SCOPE’ STATEMENT. 


3. SWOS: PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP 
SEE Set. 3.7 


mw 


TSTl: SCOPE 


INITIALIZATION 
ERROR 1 
ERROR 2 
ERROR 3 
ERROR 4 


TST2: SCOPE 
THE SEQUENCE OF LOOPING FOR , DIFFERENT CASES IS 
EXPLAINED BELOW. NOTE THAT ° 1ST AND 'TST2" ARE 
TAGS WHICH DEFINE THE BOUNDARY OF A TEST, ‘IN THIS 
CASE TEST 1). TEST 1 STARTS AT TET] AND ENDS JUST 
BEFORE ‘TST2’. 


IN THE ILLUSTRATION BELOW --> INDICATES THE POINT 
FROM WHERE RETURN IS MADE AND LOOPING IS DONE. 


1. ERROR 2 OCCURS, SW 14 SET. 

TST1..ERROR 2..TST2-->TST1. .ERROR 2..1STe--) TST1... 
2. ERROR 2 OCCURS, SW le SET. 

TST1...ERROR 2-->TST1...ERROR2--> TST1... 

3. ERROR 2,3; SW 14 SET. 


TST1..ERROR 2..ERROR 3..TST2-->TST1..ERROR 2..ERROR 
3..1Ste--) TST1... 


4. ERROR 2,3; SW le SET. 
TST1...ERROR 2-->TST1...ERROR 2-->TST1.. 
NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR 


ENCOUNTERED. THE MORE BASIC AND ERROR THE EARLIER 
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED. 
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IN THE ABOVE EXAMPLE NO PART OF THE SUB-TEST IS 
BEING USING hwy PARAMETERS, HENCE IT 


E* Betou Att ‘Ee BIE? THE 


DIFFERENCE BETWEEN Sti 9 


TST1: SCOPE 

INITIALIZATION 

ERROR 1 

MOV —s« #1, SLPERR -*$LPERR’ CONTAINS 

-THE ADDRESS TO LOOP 

, :BACK ON ERROR- SW 9 
1S: ; a 

ERROR 2 ! N REPETITIONS 
TST2: SCOPE ---- 
1. SW 12 SET, ERROR 2 OCCURS DURING K.TH 
REPETITIONS 


TSTi..1,2...K.ERROR 2-->TST1..1,2...K.ERROR e-->TST1.. 
2. SW 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION 
1$..K.. ERROR 2-->1$..K..ERROR 2-->1$... 


7.0 PROGRAM DESCRIPTION 


IN THIS PART OF THE PROGRAM THAT PART OF THE 

CONTROLLER IS CHECKED WHICH DOES NOT DEPE 

SIGNALS FROM THE DRIVE. THUS A DRIVE 1S NOT NEEDED 

FOR THIS TEST, BUT ee: Fi NOTED THAT THE 

PART-II OF THE ‘BASIC Logic TESTS’ MUST BE RUN, 
ORDER TO GET A COMPLETE C 


THE TESTS ARE GRADUALLY BUILT UP, CHECKING THE MCST 
BASIC AND SIMPLE LOGIC FIRST AND THEN PROGRESSIVELY 
MORE COMPLEX LOGIC. 


M3 ceotten TEST ufneat = ths ee pais waa” 3 


ee ee em ee 


FLOATING A ’ 

"THEN IT IS CHECKED THAT THE RK11 REGISTERS 

FAN "ee CLEARED USING CONTROL RESET AND RESET (BUS 

INIT). FINALLY. THE WORD ot: BYTE ADDRESSING LOGIC 

OF RK11 IS CHECKED TO SEE THAT EACH REGISTER [5 
UNIQUELY ADDRESSE 


a 


‘ 
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8.9 ERROR REPORTING 


THE ERROR TABLE STARTING AT  SERRTB CONTAINS 
INFORMATION PERTAINING TO EVERY ERROR THAT CAN 


OCCUR. EACH ITEM IN THE TABLE CONSISTS OF FOUR 
ENTRIES. 


Q@. EM - THIS IS A POINTER TO THE ERROR MESSAGE TO 
BE TYPED OUT WHEN THE ERROR OCCURS. 


B. DH - THIS IS A POINTER TO THE DATA HEADER TO BE 
TYPED OUT. 


Cc. GF ts IS A POINTER TO THE DATA WHICH IS T0 
BE TYPED TYPED OUT UNDER THE HEADERS. 


D. O - THIS IS A TERMINATOR SIGNIFYING THE END OF 
THE ITEM. 


THE ERROR CALL IS AN EMT INSTRUCTION WITH ITS at 
BYTE ENCODED TO INDICATE THE ERROR NUMBER. THUS 
“ERROR 1” WOULD BE (EMT+1) IE 104001. 


EVERY ERROR CORRESPONDS TO AN ITEM IN THE ERROR 
TABLE. THUS “E 14" WOULD CORRESPOND TO ITEM 14. 
AS FAR AS POSSIBLE, THE ERROR MESSAGES HAVE BEEN 
KEPT SHORT, BU IS NOT SACRIFICED FOR 
BREVITY. INSPITE OF THIS, IF THE F NDS A NEED 
SRE LOOK GP THE ENTIRE’ ERROR N THE ERROR 
ITEMS TABLE FOUND IN THE BEGINNING OF THE LISTINGS. 
THUS FOR. “ERROR 14". “ITEM 14" IN THE ITEM TABLE CAN 
BE LOOK DW. N INSTRUCTION IS 
BEE cHTED. RAP OCCURS TO THE E R LOCATED 
AT SERROR WHICH PROCESSES THE ERROR CALL. SEE SEC 


9.0 ERROR INTERPRETATION 


WHENEVER AN ERROR MESSAGE IS SnETeS OUT 
REGISTERS AND OTHER DATA PERTAINING TO THE ERR 
ALSO GIVEN. RKDS, RKER...RKBA INDICATE THE CONTENTS 
OF THE CORRESPONDING REGISTERS AT THE TIME OF ERROR. 


EVERY ERROR MESSAGE CONTAINS A PC. THIS PC 

INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 

CALL IS LOCATED. THE ERROR MESSAGE, BECAUSE OF 

PRACTICAL CONSIDERATIONS IS MADE 

MEANINGFUL. THE USER IS ADVISED ¥O LOOK UP THE PC 
THE PROGRAM LISTING, WHERE . WILL FINO MORE 

ORMATION ABOUT IN T 


NF THE ERR MANY INSTANCE 
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR 
REPORT. A LITTLE DELIBERATION AND CAREFUL 


nian 
= 
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EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY 
HELPFUL IN PINPOINTING THE FAULT. BRIEF 


EXPLANATION _OF WHAT IS BEING CHECKED IN THE SUBTEST 
IS GIVEN AT THE BEGINNING OF EVERY SUBTEST. ALL THE 
NUMBERS GIVEN WITH ERROR MESSAGES ARE IN OCTAL. 


10.0 | HANDLERS AND COMMON ROUTINES 
THE COMMONLY USED ROUTINES USED IN THE PROGRAM ARE 
CALLED IN TWO WAYS. 
A. AS A SUBROUTINE THROUGH ’JSR’ CALL 
B. THROUGH A 'TRAP’ HANDLER 
10.1 TRAP HANDLER 


Y USED ROUTINES IN THE PROGRAM 


MANY COMMONL ARE 
CALLED USING THE TRAP INSTRUCTION AND THE *TRAP’ 
HANDLER. THE LOWER BYTE OF THE TRAP_INSTRUCTION IS 
ENCODED DIFFERENTLY FOR DIFFERENCT ROUTINES. THE 
TRAP HANDLER IS LOCATED AT ’STRAP’. WHEN A CALL FOR 
a. POUTISy IS Me My A_TRAP ° HANDLER 


STRAP HE HANDLER PICKS 
THE “CALL INSTRUC TION" AND USES IT TO FORM THE 
STARTING ADDRESS OF THE ROUTINE TO GO TO FOR 
SERVICE. 
10.2 SCOPE HANDLER ’ a 


THE *IOT’ TRAP IS USED BY THE ‘SCOPE’ STATEMENT. 
WHEN Pes IS_ EXECUTED, AN OT TRAP weg ra 


ETC. THE T 

ADJUSTED. THUS. IT IS NOT ADVISABLE TO START THE 

PROGRAM AT ANY GIVEN LOCATION SINCE THE VARIOUS 

POINTERS AND FLAGS MAY NO ORRECTLY ADJUSTED. 
10.3. ERROR HANDLER 


AN EMT TRAP INSTRUCTION IS USED BY THE ERROR CALL. 
THE LOWER BYTE IS ENCODED 10 eave DIFFERENT ERROR 


' : ERROR 1 1 
104000+16). WHEN THE ERROR STATERENT 1s EXECUTED, A 
at geiaie Ne eagle Fone 


HANDLER 
eBe “POUR 19 "EERO Tete, te "BBectetbe Hf ON THE 
SWITCH SETTINGS, A DECISION ABOUT HALTING ON ERROR, 


a OZRk TEST 1 MACY11 30(1046) O6-JUN-77 14:40 PAGE le 
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10.5 


19.6 


INHIBITING TYPEOUT, LOOPING ON ERROR ETC. 


Ape TO Ie Pasa he beads HeLHCR aD ne okt 


CONTROL RESET ROUTINE 
CALL FOR THIS ROUTINE IS “CNT. aT. 


ENEQDED. “TRB” oIMRIRUCIAON, gH “CNL RESET" 1p 


“CN.RST” IS ENTERED. A CONTROL PRESET IS ISSUED AND 
T WAT TROL READY T 


THE CON ON 

WHICH THE ROUTINE EXITED. IF CONTROL READY DOES 
NOT SET WITHIN A CERTAIN TIME AN ERROR IS REPORTED. 
THE OUT IS THE LOCATION — THE 
“CNT.RESET” CALL IS LOCATED. THE WAITING TIME IS 
2.8 FOR 11720 AND S60 US FOR 11/45 WITH BIPOLAR 


CONTROL READY ROUTINE 
i oe ROUTINE IS BY “CNT. — (AN ENCODED 


ROUTINE BITS “FOR t ont " Roltaoe LB y To “aN WHEN 


ROL READY DOES NOT SET 
WITHIN: ; SPECIFIED D TIME TAN CPRROR MESSAGE IS GIVEN 


CNTRL RDY DIDN’T SET 
PC = XXXXXX RKCS = YYYYYY 


THE PC IS THE LOCATION AT WHICH THE “CNT.RDY” CALL 
IS LOCATED. THE WAITING TIME IS 949 MS FOR 11/20 
AND 189 MS FOR 11/745 WITH BIPOLAR MEMORY. 


TIME DELAY ROUTINE 


THIS ROUTINE Ande A he TIME DELAY. —_THE 
CALL IS DE »N WHERE N=1 TO gees (OCTAL) TIME 


DELAY PROVIDED™ 7.5 TIMES( X ) MICRO SECS FOR 
11/20, 1.S5N US FOR 11/45 ( N CONVERTED TO DECIMAL 
BEFORE COMPUTING DELAY) IF THE NUSER WANTS TO CHANGE 
THE DELAY AT ANY ‘POINT IT CAN BE DONE BY SIMPLY 
CHANGING VARIABLE 'N’. 


OTHER ROUTINES 
Mae ARE OTHER COMMONLY USED ROUTINES AS LISTED 


$TYPE: 


TYPE_ROUTINE FOR TYPING OUT ASCII STRINGS. 
LOCATED AT “STYPE” 


“=a 
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CALLED BY “TYPE” 


YPOC: 
ROUTINE FOR TYPING OUT OCTAL NUMBERS. 
LOCATED AT “$TYPOC™ 
CALLED BY “TYPOC” 


TYPDS: 
ROUTINE FOR TYPING OUT DECIMAL NUMBERS. 
LOCATED AT “STYPDS™ 

CALLED BY “TYPDS” 


RBUTINE: FOR TYPING OUT ERROR MESSAGES. 
LOCATED AT SERRTYP 
CALLED BY “JSR SERRTYP™ 


SPWRDN, SPWRUP : 
ROUTINE FOR HANDLING POWER FAILURE/POWER UP. 
LOCATED AT SPWRON, SPWRUP 

SPWRFL, CALLED WHEN THERE IS A POWER FAILURE. 
SPWRUP, CALLED WHEN THERE IS A POWER UP. 


11.0 UNEXPECTED TIMEOUTS AND RK11 INTERRUPTS 


WHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT WHICH 
TIME OUT OCCURED IS TYPED OUT AND’ THE PROGRAM HALTS. 
CONTINUE. INTACT, IT CAN BE RESTARTED BY PRESSING 


IF _AN UNEXPECTED RK11 INTERRUPTIOCBURS THE PROGRAM 
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND 
PRESSING CONT 


THEN HALTS. INUE WOULD RESTART THE 
PROGRAM FROM BEGINING. SW 9- LOOPING CAPABILITY IS 
PROVIDED AS A TROUBLE SHOOTING AID. 


12.0 QUICK VERIFYING MODE 


THE FIRST PASS OF THE PROGRAM IS A QUICK VERIFYING 
MODE. ALL T AR ONCE, ON 


TESTS DONE N 
SUBSEQUENT PASSES THE TESTS ARE ITERATED (NORMALLY 
50 N SOME CASES). THUS THE FIRST PASS 
TAKES A SHORTER ef! TO COMPLETE, WHEREAS SUBSEQUENT 
—— TAKE MORE TIME. 


crear arar 
cr cy' crac 
wa ian 
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MD-11-DZRKJ-E, RK11 BASIC LOGIC TEST 1 
T (C) 1974, 1977 

EQUIPMENT t hore. 

mass. 01754 


TITLE 
- #COPYRIGH 
: DIGITAL 
:# YNARD , 
 #PROGRA BY JIM KAPADIA 

t STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


S JANUARY 1975 
‘SBTTL OPERATIONAL SWITCH SETTINGS 


I 
ON SIMULATOR 


res IN SWR«<7:0> 


Oe 


ee@weewtetee @e eaters aetet ee ee 


ON 

ON 
BIT TYPEQUTS ; 
EON ERROR TO PREVIOUS “SCOPE” STATEMENT 
IT ONS 

ING 

ON 

ON 


4 
SPROGRAM REVISED BY TOM SAWYER, MARCH 1976 \ 
AUGUST 19 


;#REVISED BY CHUCK HESS 
Pereritteriiri tii titi iti titi ttitirerieielerrerrore cso gy oo 


;YOU ARE ADVISED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM. 


son a AN ERROR REFER 1 TO mtent ee es OT Ae AT ie. * een 
N THE ERROR MES FOLLOWED 
‘CAREFULLY COULD LEAD TO AN Peasy PINPOINTING “OF F THE FAULT 


- LEELALSLLLAALLLELALLKALESERSALALARRAAALESERELLETLARELTAERAAERTTETS 


"SBTTL BASIC DEFINITIONS 
-*INITIAL ADDRESS OF THE STACK POINTER *## 1100 #22 
901100 STaACK= 1100 
-EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
“EQUIV I0T, SCOPE -:BASIC DEFINITION OF SCOPE CALL 
; #MISCELLANEOUS DEFINITIONS 
009011 its 11 :CODE FOR HORIZONTAL TAB 
900612 LF= le CODE FOR LINE FEED 
ogo0e1s CR= 15 COE FOR KARRIAGE RETURN 
00c205 CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
177776 pcs 177776 : PROCESSOR STATUS WORD 


S 
EQUIV PS,PSW 


COe 
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cRKIE.P 19-APR-77 09:1 BASIC DEFINITIONS 

2s 177774 STKLMT= 177774 -: STACK LIMIT REGISTER 
ri 177772 PIRQ= 177772 es INTERRUPT ST REGISTER 
72E 177570 DSWR= 177570 .s SWITCH REGISTER 
es. 177570 DDISP= 177570 es DISPLAY REGISTER 
ed a Soe REGISTER PO cree 
733 Ris “a se NERAL et aTER 
é a8 8) = . 33 
735 R3= % se neRAL Rte TER 
7 3é R4= “4 ; ;GENERAL REGISTER 
rae = 45 ss RAL TER 
73 7 t +3 TER 
- R7= 7 es RAL TER 
740 SP= “5 -:STACK POINTER 
741 PCs? ::PROGRAM COUNTER 
He 
742 -#PRIORITY LEVEL DEFINITI 
Tay oo959c Pro= ss LOPRIORITY LEVEL 9 
745 903040 PRi= 40 - PRIORITY LEVEL 1 
7 c96 100 PRe= ; PRIORITY LEVEL 2 
i 000148 PR3= 140 ERR Ty L er 3 
74g 000200 = 200 > ;PRIORITY LEVEL 4 
vee angS06 BRE: 500 SS ORTORITY LEVEL & 
73: 609340 PR7= 340 +S PRT ORI TY LEVEL : 
7S3 #"SWITCH REGISTER” SWITCH DEFINITIONS 
754 190990 100000 
7s 040906 SWi4= 40000 
755 029006 SW13= enone 
757 03 SWle= 1 
752 504960 SWll= 4000 
753 902000 SWi0= 2000 
7693 001000 SWOS= 1000 
7é1 000400 SWwOSs= 400 
762 990200 SWO7= 200 
762 900106 = 100 
764 000040 = 40 
765 oo0G20 s 
756 990610 SWO3= 10 ~~ 
mY 500004 => 4¥ 
78 SWOl= 2 
769 99080: SWOC= , 
77U -EQUIV ,SwWg 
773 -EQUIV SWO8, SWE 
oe - EQUIV SWO7 , SW7 
oe EouY Sue! Sue 
775 -EQUIV SWO4,SWH 
776 -EQUIY SWO3,SW3 

C7e -EQUIV SWOe,SWe 
776 -EQUIY SWOI, Sul 

(¢(3 -EQUIV , 


78. -#DATA BIT DEFINITIONS (87700 To BITiS: 


“ = | afi io 
- ll DCRAL E. 
“A ? ‘* 


~“—- Ke . 


81 


Borin iahs 


6 


com@co cocoro uo coda 
(9.000 SW ule wre 09.0 


0+ b+ b+ 0 + 0-0 -+ 00 & ob 


SSSR Snes 


SERE 


mcoco 
Wie 
“worm 


“4 


000174 
000176 


008200 


} 
. 


e 
Ob-JUN-77 14:40 PAGE 16 


Rk1l BASIC LOGIC TEST 1 MACY11 3011046) 
9-APR-77 09:14 BASIC DEFINITIONS 
190000 sities 100000 
ee Hue ie 
1 Tle= 1 
004900 BITLi= 4000 
002900 BITiO= 2000 
61108: 1000 
= 
BIT = 350 
000 100 BITOb= 100 
000040 BITOS= 40 
0 eI Toa rt 
= ths < 
900002 BITOl= 2 
90000 } BITOO= 1 
eeu Bi 108, Bite 
Buty BI tar 8117 
-EQUIV BITO6,BITE 
-EQUIV BITOS,BITS 
-EQUIV BITO4Y,BITY 
-EQUIV Bit : #13 
-EQUIV BITO2,BIT 
-EQUIV BITO1,8IT1 
-EQUIV B8I730,8ITO 
-#BASIC “CPU” TRAP VECTOR ADDRESSES 
ooog04 ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS ; 
900010 RESVEC= 10 + RE D AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC=14 -."T" 
900014 TRIVEC= 14 es 
900014 BPTVEC= 14 5% INT TRAP (BPT) 
000020 IOTVEC= 20 -: INPUT/OUTPUT TRAP (IOT) ##SCOPEs# 
000024 PWRVEC= 24 , ; ;POWER 
000030 EMTVEC= 30 -:EMULATOR TRAP (EMT) ##ERROR# 
900034 TRAPVEC= FB 
000060 TKVEC= 60 7; TTY KEYBOARD VECT 
000064 TPVEC= 64 7; TTY PRINTER VECTOR 
000240 PIRQVEC=240 :;PROGRAM INTERRUPT REQUEST VECTOR 
.SBTTL TRAP CATCHER 
GEoono . 20 
;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ™.+2,HRLT™ 
-# NCE TO CATCH ILLEGAL TRPPS INTERRUPTS 
900174 Deeaiiice~" eealdames 0 TO CATCH I RLY LOADED VECTORS 
600000 DISPREG: .wORD OQ ;;SOFTWARE DISPLAY REGISTER 
aisisisiais SWREG: _.WORD JO * ;;SOFTWARE SWITCH REGISTER 
SBTTL STARTING ADDRESS(ES) ; 
000137 o01S4e JMP @SSTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
.SBTTL ACT11 HOOKS 
.: SSSLLASAAAEAELRAHAAAF AAS AAPA ER LHLAFAAARARAFRALARTASAAAARAPARSRAPAAA 
nF :HOOKS REQUIRED BY ACT11 
gocec4 $S\VPC=. :SAVE PC 


LOGIC TEST 1 MACY11 30(1046) O6-JUN-77 14:40 PAGE 17 
: ACTLi HOOKS 


=2 


246 
sero -;1)SET LOC.46 TO ADDRESS OF SENDAD iN gece 


"WORD OO »:2)SET LOC.S2 16 ZERO 
.=$SVPC -: RESTORE PC 


¥ 3 


BOOB SS iach 


$ 


R 


ba bia dab ta TL 


wr 
.D 


ddan 


date! 


ee 


TERPOR ESOT SES 


mio 
a) 


Oe 

 — 

~D2RKI-E. Be east LOGIC TEST 1 MACY! 39( 1046) 06-JUN-77 14:40 PAGE 18 
ite 3:1] COMMON 


.SBTTL COMMON TAGS 


; LRSEREARELEEREL RARE REAEE RES ERASE SEERA RARER ES LES EER ELE SEES EEE SS 
 ETHIS TABLE ee VARTOUS COMMON STORAGE LOCATIONS 
:#USED IN THE PROGRAM 





01100 .21100 
001100 SCMTAG: :;START OF COMMON TAGS 
901100 $Ppass: .WORD 0 :: CONTAINS PASS COUNT 
091192 000 STSTNM: .BYTE O :: CONTAINS THE TEST NUMBER 
001193 900 SERFLS: .BYTE 0 :: CONTAINS ERROR FLAG 
001104 ogo000 SICNT: .WORD O : CONTAINS SUBTEST ITERATION COUNT 
991106 oo0c000 SLPADR: .WORD O is CONTAINS 5 L OOF 
001110 900000 PERR: .WORD 0 : + CONTAINS T OR ERRORS 
NOlil2 9o000c0 SERTTL: .WORD 0 -: CONTAINS TOTAL ERRORS DETECTED 
001114 000 SITEMB: .BYTE O :: CONTAINS ITEM CONTROL BYTE 
901115 901 SERMAX: .BYTE 1 :: CONTAINS MAX. ERRORS PER TEST 
90i116 oocs00 SERRPC: .WORD 0 ;;CONTAINS PC OF LAST ERROR INSTRUCTION 
001120 900990 SGDADR: 0 1s CONTAINS SS OF ° * DATA 
001122 900000 SBDADR: 9 :: CONTAINS SS OF ’BAD’ DATA 
061124 9o0000 $GDDAT: .WORD O :: CONTAINS ’GOOD’ DATA 
001126 ooc000 SBDDAT: 0 :: CONTAINS ’BAD’ DATA 
991130 900000 WORD 0 : :RESERVED--NOT TO BE USED 
901132 9coood 0 
901134 990 TOB: .BYTE OQ ; AUTOMATIC MODE INDICATOR 
001135 900 SINTAG: .BYTE 0 :: INTERRUPT MODE INDICATOR 
9011 36 0 
1! as : OSWR ; ;ADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP “ADDRESS OF DISPLAY REGISTER 
001144 177560 STKS: 177560 TTY KBD TATUS 
O01146 177562 $TKB: 177562 Y 
901159 177564 $TPS: 177564 tary PRINTER STATUS REG. ADDRESS 
961152 177566 TPB: 177566 :: TTY PRINTER BUFFER REG. ADDRESS 
901158 000 lL: . BYTE oO : CONTAINS NULL CHARACTER FOR FILLS 
1155 902 SFILLS: .BYTE 2 i CONTAINS # OF FILLER CHARACTERS REQUIRED 
301156 O12 SFILLC: BYTE he si] NSERT FILL CHARS. AFTER A “LINE FEED” _ 
9011 S'PFLG: .BYT SI®TERMINAL AVAILABLE” FLAG (BIT<O7>=O=YEs: 
90:180 ococod SREGAD: .WORD 0 -: CONTAINS THE ADORESS FROM 
::WHICH (SREGO) WAS OBTAINED 
901162 socged SREGO: .WORD O =: CONTAINS (($REGAD)+0) 
00:164 900090 SREG1: .WORD 9 =: CONTAINS (($REGAD)+2) 
90:166 oo00000 $REGC: .WORD OQ “: CONTAINS ((SREGAD) +4) 
901170 900009 SREG3: .WORD :: CONTAINS (($REGAD)+6) 
001172 SREGY: .WORD O :: CONTAINS (($REGAD)+10) 
1174 SREGS: .WORD 2 -: CONTAINS (($REGAD)+12) 
001176 SREGE: .WORD CONTAINS (($REGAD)+14) 
001206 SREG7: .WORD :: CONTAINS (($REGAD)+16) 
901202 SREGIO: .WORD §& : : CONTAINS ( ($REGAD ) +20) 
901208 SREGI1: .WORD O ;: ;CONTAINS ( (SREGAD +22} 
1206 STIMES: O -MAX. NUMBER OF ITERATIONS 
001210 SESCAPE : 0 ; sESCAPE ON ERROR ADDRESS 
oolele S$QUES: .ASCII /?/ : + QUESTION 
lel3 SCRLF: .ASCII <15> ; ;CARRIAGE RETURN 
06:2:4% 900012 LF: -ASCIZ «12> ‘LINE FEED 
tRORREERSSERSAE SESSA SEASELEEEAAALEPEREEEEEERER ERE EEE EEE EA EE EES 
SOizlé OOSDIS oHTIOz ozci24 M863: .ASCIZ <15><i2>/CNT RDY DIDN'T SET. 


ry A 


e 


t) 


cae | 


= 


0.000.0.0.0.0.0.0.0 
b= b+ b+ b-* b= Be be Bo bo 
Wo NOU Ss Wurue-(> 


se Raa, 


ret et tery 
et pet on itt 4 


OsRn J J-E, RK1] BASIC LOGIC TEST 1 
Pll 19-APR-77 09:14 


901 gig2 920131 44504 
55:332 Os S204? OS1440 


ie 


001244 


BSBBRBR 
ey 


OCoe29 


GOe 
14:40 PAGE 19 


maCYi: 30(1046) O6-JUN-77 
COMMON TAGS 
EVEN 


:RK11 REGISTERS 
‘FoR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM THES 


GIVEN BEL ob that THE’ CORRECT ADDRESS IS USED 
EVEN 
RKDS: 177400 
RKER: 177402 
RKBA: 177410 
RKDA: 17741le 
RKDB: 177416 


-TAGS AND GENERAL DATA AREA 
FTITLE: O 


;FLAG FOR PRINTING PROGRAM TITLE 
TIMER: Q ISTER 
RKPRI: 200 


TIMER REGIS 
; CONTAINS THE ye LEVEL AT WHICH 
K11 NORMALLY Lea Ah THIS WORD 


220 :CONTAINS THE 


RKVEC : 
:RKII INTERRUPTS. 


CONTENTS OF eee rence POINTERS SHOULC 8 


aE 


THIS IS CHAN 
- THIS WORD TO CONTAIN MOCIFTED VERTORS ADDeESS. 


_ 
C-LI-DI2RRI-£, Sell BASIC LOGIC TEST 1 MA@CY11 30(1046) O8-JUN-77 14:40 PAGE 20 


SE. P21} 19-4PR-77 99:14 CRROR “POINTER TABLE 
334 .SBTTL ERROR POINTER TABLE 
p&p 
33 :sTHIS OGLE CONTAINS THE INFORMATION FOR. EACH ERROR THAT CAN oC °UF 
32° Salle ORMATION 1§ TAINED BY infest [ont FOUND I 
33¢ pe ION $IT NB i) BER 1 ATES WHICH ITER N Rue TABLE. 1S PERTINENT, 
325 : #NOTE MB I PERTINENT DATA IS (SERRPC 
32 ENOTES, fACh ITEM i of FABLE  CONTAING 4 POINTERS EXPLAINED GS =OL_cwt: 
> an 
We -* = : POINTS TO THE ERROR MESSAGE 
232 : OH - :POINTS 10 THE DATA HEADER 
= ; pBINtS 12 Te Bat 
3<5 + ::POINTS TO THE DATA FORMAT 
3~5 
947 
$48 201272 SERRTB: 
= 
350 
2 
#52 HE ERROR 11 ITEMS TABLE CONSI TS OF ALL THE POSSIBLE eonme sree 
#55 oe ren TNURBERCIN WHEE ic ae fy TERROR IN THE 
? : Enea T NTER TO THE ERROR MES WHICH WILL SE TYPED 
2 PPT cle er OU ch M6 SESE," hth P20 
E SEES FPigMolitee HE AER Bf i oc es 2. 
32 A POINTER TOT OCATIONS WHERE 
563 ‘the prea” SER i Teg INTER mB “THE enon TYPE bie 5g, ONTENTS 
365 -OF RKCS ETC.) WILL 
365 : THE LAST ROW CONTAINING staves one A TERMINATOR. 
a5 IF ON ING THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADDRESSING RKOS 
se (177400), BECAUSE OF SOME FAULT, THE FOLOWING TYPEOUT WOULD 
9 -OCCUR ON THE TELETYPE. 
48 . 
971 : TIME OUT ON RKIi REG 
37¢ . P REG 
ere seesss) = 177400 
: ; 
375 “NOTE THAT #B##ee WOULD BE THE ACTUAL PC WHERE “ERROR 1° IS LOCATED 
‘eS 
977 THE ERROR HANDLER IS LOCATED AT *SERROR’. THE ERROR CALL IS AN ‘EMT’ 
$75 : INSTRUCTION WITH ITS LOWER BYTE ENCODED TO PROVIDE INDEXING TO THE 
979 if TEMS IN THE ERROR TABLE. 
20 HUS *E 1’ IS [04001 
98; "ERROR leb’ IS to4126 ETC. 
3&2 
352 
cone 
36¢ 
37 -ERROR ITEMS TOBLE 
3235 


' raed 


. P)} 


PRCPB BUBB BR BB 88.88-8:88-8-8:8 


“> 
Oooo 


ed aed ee ed ee ee ee ee 
OD NOU £. Wote- CO 


NOQLOW 


ee ee ee i Ml Ml Re Med Mi Me Se Me ek aed ed ee eed ee ee ee ee ee oe | 


SEBEL ROS BER PRES 


eI 
4. 


ae er 
eee. 
in Gre 


~“ 


uw 
voRh se. “a a LOGse TEST 1 MACY1 3011046) OB-JUN-77 14:40 PAGE 21 
19-APR-"" 09:1 ERROR POINTER TABLE 





-ITEM 1 
21272 ,033e EM) -TIME OUT ON RK!1 REG 
351559 St 46 OH) :PC 
COlie7& CLIS7E OT] -SERRPC SREGC 
00:300 o000000 0 
-ITEM 2 
010370 EM2 -REGISTER NOT CLEARED 
e11566 DHe 4 Ja OD RECVD 
611504 = -SERRPC $REGO SREG! 
-ITEM 3 
igle O1o815 EM >RKCS ERROR 
567318 of eaa te : READ 
0012316 011504 DT2 -SERRPC S$REGO S$REG1 
001320 900000 0 
-ITEM 4 
O0i3zee 910430 EMY >RKCS ERROR-ON WRI::NG READ ONLY SITS 
at 13615 OHY - PC EXPCT RECVO 
l3et 11504 OT2 -SERRPC $REG? EG! 
001330 0 
-ITEM ) OS 
001332 919475 EMS -BUS INIT DIO NOT CLEAR RKCS 
0Ci334% 011670 DHS -PC RECVD 
OCi336 O1li47eé OT! -SERRPC SRESO 
601340 000000 0 
-ITEM 6 
001342 9:0531 EME -*CNTRL RESET’ DIDN'T CLEAR SkKCS, ON SETING Go 
001344 Q11670 DHS PC RECVD 
901i 11476 OT] - SERRPC S$REGO 
001235 0 
ITEM 7 
001252 610607 EM? Pate RDY" ao T SET AFTER CONTRCL RESET 
1384 OQleee: OH RKC RKER DS 
l Bad OT + SERRPC SREGO SREGi $REG2 
1 00c0 G 
-ITEM 10 
001362 Ol106SE aa “REGISTER NOT CLEARED 
ye “ at g& 8 - PC RECVO 
] 11$04 -SERRPC $REGO $REGI 
Sois7S gocess 


J0e 
Gch bz0RPRI-E. GRA, BASICALOGIC TEST 1 PREVAIL, 20(40Mb) Ob-JUN-77 14:40 PAGE 22 


LOM -ITEM 12 
a4? 
! 72 9107 a BKC ERROR 
ies Riis A T  SERRPC eReGp | SREGI 
98) 091490 00000 f 
1053 ITEM 12 
1054 
“UNEXPECTED RK11 INTERRUPT 
Hie poyge guia piss ye 
1057 001406 011530 a : SERRPC 
1388 001419 og0008 
' - ITEM 
A ERROR 
re Baiat§ Bt eSae — eR eR OT READ 
1064 OC1416 O11504 Oe : SERRPC SREGO SREGI 
265 901420 900000 
ioe -ITEM 14 
I oo1422 910731 EMI4 —: CNTRL RESET DID NOT CLEAR REGISTER 
1070 9014 O11 iB REGADD REC 
1571 OO14 1] BT RRPC SREGO SREG! 
i oe 
oe -ITEM 15 
M1S  :RKDA ERROR 
iy BNE Ree a ae ee 
1078 901436 911504 Te :SERRPC SREGO $REGI 
1073 001440 scocec 0 
ee -ITEM 16 
1 RK TERERED ON CLEARING ’REG-BYTE’ 
ta Bp taaa Seat SSE ee AE CaNTE (RKCS)EXP (RKCS)RECYD 
1085 OO1446 021534 0726  :SERRPC SREGO SREG1  S$REG2 
“£8 001465 900000 0 
“288 LITEM 17 
| 001 11906 EM17 _- : BUS INIT DIDN’T CLEAR REGISTER 
1681 Sai 55 ot tee BHO ‘PC CVO 
| 00! 011504 OTe ;SERRPC SREGO SREG1 
i983 00!460 d00c00 0 
ince -ITEM 20 
593 901462 011042 EM20 i ADDRESSING ERROR-TRIED TO ADDRESS REG 
+338 Do1468 911746 He REG! (REGL) (REGS) 
{ 14e6 O11514 Te  SERREC SREGO  $REGI gREC? | SRECS 
[130 061470 000060 C 


« 
r 
Z 
‘.- 


+> -+b-—-0-- pb <p 
- &- & - b--8- b-* B= Bb & +b ee --0-- &- @-- 
BOW REG wir 


oP 0 b= b- & 0 8 bs 
MDM NMU CUM e- 


Pt Bt Bt Bt Be Bene Bot Be me Bee Be Be B Bee Be Bt Be Be Be Bot Be Be = Be be Oe be Fb b= bo b= © © b= Bo Bo bo 0 


Grin PON SS Se ESOS BBR ORO BS SOOO E se 


my 4 
x) 


I0147e 
901474 


bii8i 


681608 Bddddd 


001592 


011123 


Bes bine 


001Sle 


Batele BtiEAq 
001520 900000 


o0o00cs 


012706 


001100 


e706 001140 


te 


001100 
4 

006114 

000340 


010154 900024 


BaTzOe 


EM27 
27 
pred 


;ITEM =e 


- IEM 23 


-ITEM 24 


-ITEM 25 


START: RESET 
"SBT INITIALIZE THE COMMON TAGS 


: TRIED TQ CLEAR Riis Te B= ‘REGIS’ 
'SERRPC SREGO SREG] SREG2 SREG 


a. # Br Ade BS thot Pgs TEST 1 Be np othe sue TI :40 PAGE 23 


;ITEM = 


: TRIED TO CLEAR 'REG-BYTE’. CHANGED ’REG-BYT2’ 
:PC REG-BYT1 REG-BYT2 BYT2-EXPCT 
-GERRPC $REGO SREGi $REG2 


;DID NOT CLEAR RKCS LO BYTE 


‘SEnnec SRESd 


;sDID NOT CLEAR RKCS HI BYTE 


i SeaRPC KEE Bred? 


(REGIRECYD 


; FAILED TO CLEAR ‘REG-BYTE’ 
REG-BYTE RECVD 
 SERRPC SREGO S$REGI 


-CLEAR THE BUS 


;; CLEAR THE COMMON T ($CMTAG) 
MOV aSCrTAC, Re Rai LOCATION TO BE CLEARED 


CLR 
CMP 


MOV 
; INITIALIZE A FEW 
MOV 


Se VECTOR FOR SCOPE ROUTINE 


RROR 
#340 SR ae ee ; LEVEL 7 


Hines it 


(R6)+ ;CLEAR MEMORY LOCATION 
«sag ; ; DONE 


"90a THE FF ack POINTER 


;EMT VECTOR FOR ERROR ROUTINE 
TRAP, aS TRAPVE ; TRAP VECTOR FOR TRAP CALLS 
t340, ab fRAPVEC se; LOVE 
POWER FAILURE VECTOR 
AY al ize NUMBER OF ITERATIONS 


LOc 
4B RBRPRSSLINOS TEST ARFTHA TOD cofadMMage NO PE 


St 
1158 0016 0 SES ADORESS 
1159 Bote Tigra? Ob GO0061 001115 = OB ans ONE ERROR PER FRROF 
1180 001662 Oi ea? 00 001662 ai es THE LOOP ROORESS FOR SCOPE 
{i8e SIZE PERE TCH reciever 
1163 ce ae ad ‘ *. - ate FOR A Q SOFTWARE TEuITCH se 

88 in 
tee oleae piesa? Bola 
1166 001710 912737 177570 OO1140 NOV i} SETUP FOR HARDURRE SWICH REGISTER 
1167 OO1716 O1e737 177570 OO114e MOV i DISPLAY fo REPenChcE MeRoueRE Bu 
1168 001724 Oe 177777 177206 CMP 8-1, aSWR ii ORy TO RE 
1169 001732 o010le BNE 66$ mov mo OUT sun Ts yO CURRED 
1171 001734 900403 BR 65S 
1172 001736 012716 001744 64$: MOV #65S, (SP) epee UP FOR NO RAP RETURN 
ee eae iene 000176 OO114O 65% NON a :POINT TO SOFTWARE SWR 
1175 Bot oee 012737 000174 001142 MOV SOHCPREG DISPLAY’ 
1176 001760 012537 oO0004 663: MOV (SP) +, SatRRVEC : ;RESTORE ERROR VECTOR 
1178 OO1784 023737 o0004e 900046 CMP ae42, 846 sARE WE IN ACT11 AUTOMATIC MODE? 
1179 001772 O01416 BEO 695 -IF YES, SKIP TITLE 
1180 .SBTTL TYPE PROGRAM NAME 
1181 : TYPE THE NAME OF THE PROGRAM IF HST Th 
1182 001774 O0S2e27 177777 INC -1 T TIME? 
1183 O02e000 O01043 BNE IF NO 
1184 O02092 104401 ocO2040 TYPE TYPE ASCIZ STRING 
1185 .SBTTL GET vaLut FS FOR SOFTWARE si TCH REGISTER _ 
1186 002006 005737 ocDD04e TST #42 ::ARE WE RUNNING UNDER XXDP/ACT” 
1187 O9e0le 001006 BNE 28s : :BRANCH IF YES 
1188 002014 0623727 O0114O ocnoI76E CMP SWR, #SWREG : + SOF THARE SWITCH REG SELECTED? 
1189 O02e02e2 001005 BNE 70$ “BRANCH IF NO 
1190 O02024 104406 GTSWR GET SOFT-SWR SETTINGS 
1191 002026 000403 BR 70$ 
1192 002030 112737 OOO0C: 001134 69$: ##MOVB  #1,$AUTOB -:SET AUTO-MODE INDICATOR 
1193 002036 70S: 
1194 002036 900424 BR 67 T OVER THE ASCIZ a 
1195 --68$: -ASCIZ <CRLF>/RK11 LOGIC’ FECT 1/¢15) ¢12> “MAINDEC-11-DZRKJ-E-<CRLF> 
1198 002110 675: 
1198 002110 912737 002126 op0004 STARTI: MOV #BADTMO, a84 :9 T TIME | OUT VECTOR FOR UNEXPECT 
1200 O02116 012777 0 77144 MOV #BADINT, ARKVEC L INTERRUPT v FOR 
sok - — oN . exnigalast eee PECTED I TATERE PTS se RKii 
002124 ooosieé BR TST! 
1203 
1204 
1205 
1206 
i207 -THIS ROUTINE HANDLES UNEXPECTED TIME OUTS 
1808 les BADTMO: MOV (SP) RO ;SAVE PC WHERE TIME OUT OCCURED 
eye BpstS) pasos TST  -cROS 
1 BIR JSREE coewe ee Cet sri+ RSTO stg uae 
+515 baste soca? BR bug -:GET OVER THE Rect? 


MO-11-DZRKI-£, 
Ssaxte Pil 
1214 
1215 002200 
1216 O02 
Be 
1218 
i219 002 
1220 
‘ssh 
1855 
isso 
1 002212 
] 14 
1 002216 
leeg 
: Wecet 
123 002230 
1 Mee 3c 
ic 002234 
153 002236 
1236 O02242 
-_ 
(539 O0see4 
1240 002256 
1241 
ics 002260 
(Sua OOBETG 
124S 002272 
1246 
1247 002276 
(543 O0e306 
(S60 boe316 
1251 
12Se2 
1253 
1254 002312 
1255 
2 
iBee 
12593 
1260 
ise 
15e5 
le64 002316 
i 002316 
l 
1268 002346 
1269 O0234€ 


3-APR-77 09:14 


8 
_~ 
© 


=? 
_— 

fw 
Or-Or- 


—- Oe 
~_ 
rF: 
—- Ge)! 


a a 


104402 


104401 
000411 


005000 


001542 


020008 


o02244 


001000 


176610 
040000 


001542 


002324 


RK11 BASIC LOGIC TEST 1 


176714 


17665e 


176634 


evs 30( 1046) 
GET 


MOe 


06-JUN-77 


14:40 PAGE 2S 
VALUE FOR SOFTWARE SuITCH REGISTER 


big? 


BADINT: 


big? 


1$: 


2$: 


38: 


-ASCIZ 

MOV RO,-(SP) 
TYP 

HAL 

IMP aeSTART 


(15><12>/UNEXPECTED TIME OUT AT PC=/ 


;SET UP FOR_TYPING OUT PC 
:GO TYPE OUT OCTAL PC 


; THIS ROUTINE HANDLES UNEXPECTED INTERRUPTS FROM RK11 
;SW_ 9 AND 10 FOR LOOPING ON ERROR 
;AND LOOPING ON Ra TOeD. WHICH TIMEOUT 


;OCCURRED, ARE PR 


MOV (SP). RO 
TST -(RO 
BIT #20000, 9SWR 
BNE 1$ 

TYPE 

CRLF 

YPE 
EM43 

TYPE 65$ 
BR ug 

“ASCIZ / AT PC=/ 
MOV RO,-(SP) 
TYPOC 

BIT #1060, 2SWR 
BEQ 

CMP (SP)+. (SP)+ 
JMP aSLPADR 

BIT s4OOP0, ISWR 
BEQ 3$ 

RTI 

HALT 

JMP aNSTART 


TART AFTER POWER FAIL 
‘The PROGRAM WOULD RESTART HERE IF POWER CAME BACK AFTER A FALIURE. 


PFSTRT: 


a 


TYPE 65$ 
BR 

.ASCIZ 

CLR RO 


;SAVE PC WHERE INTERRUPT OCCURED 


5 ereee ERROR TYPEOUT? 
;YES, DON’T TYPE OUT 


; TYPE ha i tl RK11 INTERRUPT’ 


;SET UP FOR TYPING OUT PC 
:GO TYPE OCTAL PC WHERE BAD 
; INTERUPT OCCURED 

;LOOP_ON ERROR? 


NO. BRANCH 
; YES, REPOSITION STACK 
GO TO THE STARTING ADDRESS OF . 
Fhe TEST THAT GAVE UNEXPECTED INTERRUP' 
;LOOP_ON TEST? 


H 
tes LOOP. GO BACK WHER U INTERRUPTED FROM. 
CTED INTERRUPT OCCURED AS 


AFTER THE 
:RESTART THE PROGRAM 


+s Dae ASCIZ STRING 
-GET OVER THE ASCIZ 


4g 
(15><12>/PWR UP, bESTART/ 


MO-11-DZ2RKJ-E, RK11 BASIC L a TEST 1 
OZRKJE.P11 


1270 


is 


1274 
le 
1276 


bs te 


PUR EBS ERR 


Baa 


3 


SENSED 


WWWWWWWlIG) 
b= bb 


- -e— b= & - = b— bb b= Ob bb 2 8 bP 2 0 2 2 = 
WO NOUN £lorTe-O 


RERSS 


001374 


905721 


00S20e 


G2 00744 


000004 


oo000s 
012700 
012701 
023711 
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002412 


002466 
177771 
001244 


002126 


p0244O 
005370 


901162 


177772 
001246 
001250 


Fal 


001110 
o0c004 


oo0004 


MACY11 30(1046) 
GE 


O&-JUN-77 14:40 PAGE 26 


T VALUE FOR SOFTWARE SWITCH REGISTER 


1$: 


CLR 


INCB 
BNE 


R1 
R 


i 


1$ 


jRRREH ERNE EERE ETAT ALL RKLL REGISTERS CAN BE REFERENCED 


+871 


Tl: 


big? 


1$: 


TIMOUT: 


‘Bveael TERT HER BE NPE Focus 
I 


*#AN Sil ERROR RING TH 
eee Sere eet tants aoctbonall tea 


1 REGISTERS CAN BE REFERENCED 

THE ERROR IS 

) IS yo MENTED RE WAS 
PROGRAM TED 


TEST, He ENT 


Re 
#T1,SLPERR ; SET ROR SHS) FOR LUP 


s0N EROR 
aap. - Ar REED TRACK OF REGIS REFERENCED 
ards RL TRA fu tbe DS ADDRESS 

TF cm Can t'é RET IREOUT TRAP WILL OCCUR 

‘SHIFT THE POINTER 
RO : ALL REGISTERS REFERENCED? 


-IF NOT, LOOP BACK & REFERENCE NEXT REGISTER 


Tl 
#BADTMO, J#4 
Re ;WAS THERE AN ERROR? 


1§ 
65$ +s TYPE ASCIZ STRING 
4g OVER THE ASCIZ 
(15> <12>/PROG ABORTED/ 
SGETY2 -IF YES, ABORT THIS ENTIRE TEST 


TSTe > sEXIT 
(SP)+, (SP)+ 


-(R1), $REGO ;GET ADDRESS OF REGISTER THAT TIMED OUT 
1 > TIMED OUT WHEN REFERENCING RK11 
; REGISTERS 
(R1)+ *REPOSITION POINTER TO THE NEXT REGISTER ADDRESS 
Re -SET FLAG INDICATING E 
T1+e2 ‘BRANCH BACK & REFERENCE THE NXT REGISTER 


eee ai CC. 


t STEST 


téT2: 


1$: 


MOV 
CMP 


CTLY, RKWC, RKDA, RKDA, 
N Roy! 


A ae 
THAT THE CONTROLLER LOGIC IS INITIALIZED 
act BE CLEAR AND 


; ISSUE A Bus INIT 
COUNT FOR & REGISTERS 

SARERS RI : INITIALIZE ADRES 

RKCS,aR1 -IS IT RKCS? 


BERAR 


RRR RRRRR RRR DRS Se eo vii ii 


e +6 +) +b b-< b-< b-* & « & >< b-- & + bb bb be + 8 -  &  & & &- B+ = Do Bb 0 © = Be pe 


tw 


SERRE a 0 


wo 


8 
§ 


BRELSoS © 
seieS SE 


<8 


Ic TEST 1 


oo00ce 


001164 


001110 


001164 


001110 


001164 


B03 


MACY11 30(1046) 06=JUN=77 14:4 PAGE 27 
T2 CHECK RK11 INITIALIZ tion 
ae es >NO 
C 8200, a(R1) ‘ONLY BIT 7 OF RKCS SHOULD BE SET! 
BNE a *BRANCH IF ERROR 
2s: ST a(R1) Ea THAT REST OF REGISTERS 
BEQ us : H IF & TER Is CLR 
MOV a(R1), $REG1 ; te NTS F REGISTER 
ERROR 2 -RK11 REG SI TO 8 NOT CLEAR 
4S: TST (R1)+ repent ea TO NXT REG 
INC RO D 
BNE 1§ -IF NOT LUP BAK 
pee TEST RKCS FUNCTION BITS - 123 
TE ?' CHECKS IF FUNCT aft? 2,3 IN RKCS CAN BE WRITTEN $ 
SREAD id aa aa 1 Tron ait AS WRITTEN. Ri CONTAINS THE 


ah THAT 
ent LAE AE Boerne 


+873 
V 81$, SLPERR :SET RETURN ADRES FOR LOPING ON 

MOV #2, RO iy Chae IT 10 BE -HRITTEN IN RKCS 
18: MOV RO cs HR 

MOV JRKCS.R1 : GE 

BIC #200, 21 : re; CNTRL ROY BIT 

CMP RO, RI : CVD BIT SAME AS WRITTEN BIT 

BEQ : YES, OTHERWISE REPORT ERROR 

MOV RO, $REGO ser RKCS, BIT THAT WAS WRITTEN 

MOV MRKCS, SREGI ‘GET RECVD RKCS, BIT READ 

ERROR 3 ;BIT THAT WAS N WAS NOT READ BACK 
2$: ASL RO :SHIFT TO WRITE NEXT BIT 

CMP , #20 -MAVE U CHKD ALL 3 BITS 1 

BNE i$ -IF NOT, LOOP BACK & CHECK Fle: NXT 


tes eennomrarameemaanmeieaitiessesneenene 
; TEST TEST AKCS EXTENDED MEMORY BITS — 4,5 
.ATHIS TEST CHECKS ae Te EXTENDED MEMORY’ BITS CAN BE WRITTEN 
sresssitensaneesasnesssseesnosniseazaseeasnateensnetsssssetenes 


+674 


#1$, SLPERR :SET RETURN ADRES FOR LUPING 
:ON EROR (SW 9) - 
MOV - INITIALIZE BIT TO Be WRITTEN IN RKCS 
18: MOV RO RO, SKC ‘WRITE THAT BIT IN RKCS 
MOV aRKCS GET RKCS 
BIC #200 Saf :MASK OUT CNTRL ROY BIT 
CMP RO. Ri ‘WAS RECVO BIT SAME AS WRITTEN BIT 
BEO - YES, BRANCH 
MOV RO, $REGO ‘GET EXPCTD RKCS, BIT THAT WAS WRITTEN 
MOV gRKCS, SREG1 :GET RKCD RECVD, BIT THAT WAS RE ; 
ERROR ‘BIT THAT WAS WRITTEN WAS NOT READ BACK 
23: ASL 0 -SHIFT TO WRITE NE 
CMP #190,R0 ‘HAVE U CHKD BOTH BITS, 4 
BNE 1$ - IF ROT. LOOP BACK & CHECK Sue NXT SIT 


. 


MACY11 30(1046) O6-JUN-77 14:40 PAGE cB 
TY TEST RKCS EXTENDED MEMORY BITS - 4,5 


MO-11-OcRKS-E, RK 1) asst LO&EC TEST 1 
TRI 19-APR-77 OS9:1 


RIE. 


13 
138 


Bae 


e 


ey 


BRSRRIS 
Neola 


REBRES 


> +0 -* &-* b= b= &* & = &-« & < B= bb b= Be 
oP 4 


ii 


~ 


77 


R 


Se Reon: | Ree 


B 
8 


= 


au 


b-— 
on | ee) 


~ - OC 
© Stetat =| 
= e-Ne 
3 BESR 
iy 

rm “J 


0002340 
002744 


001250 


000300 
CO2164 


900200 
00116e 
001164 
000010 
903076 


001266 
003046 


000349 
903066 


001162 


176234 


a 


ere THIS 7 oT CHECK 
Ue 


tars: SC 
MOV aug) (36 
MOV a4 ~(8p) 
RTI 

64S: 
ta eS 
CMP 400° 
BEG is 
MOV 300 , SREGO 
MOY S20 -$REG! 
ERROR 

i$: CNT. RESET 
CMP se, aRO 
- 
MOV ST, 
ERROR 
BR 

2$: DELAY "to 
MOV #35, IRKVEC 
MOV RKPRI , -(SP) 
MOV #4$,.-(SP> 
RTI 

4§$: NOP 
NOP 
NOP 
MOV #340, = (SP) 
MOV 865$.-( SF? 
RT] 

65$: 
MOV SBADINT, ARK VEC 
ei) TST 

3$: oMP (SP i+, (SPi¢ 
ERROR ile 


‘ait AN BE WRITTEN PERO eG 
TY 7 THAT UNWANT 15 
AND PROCESSOR PRIORITY IS LOWERED TO 


“sana ttg TERRES ee ann nee cauavanatevesstseses 
OPE 


IT WATTTEN CORRE 


CTL 
BRANCH OTHERWISE REPORT ERROR 
RK 4 feve 
BI Was MRITTEN, BUT WAS NOT 


a 


4O 
Gz 
w 
~- 
w 
D> 


aha 
a 


A CONTROL RE 
AND AFTER A CERTAIN TIME 
a te Repon TED DOES NOT SE’ 
ERROR IS REPORTED. NOTE THAT 


PEAIN ERR THE 


SAGE IS 
art reset: IS ,ts LOCATED. 


x2 
3 


pre nzboRttns: 
DD 4 
2 

2B 

Bon 


THAT 
 TNTERRU PT IF 
INIG YOGI? 
D OccUR 


w 


er ee ee Ge eee Ot ee Sees et ese eeewe ese Ce etee eeee ee oe Cees ee = bel 


mame 
2 
4 
3... 


TY 
UNEXPCTD INTRUPT VECTO 


STACK 
PECTED vn. INTERRUPT 
PROBRELY CUE TO FRULTY Llale 


BRE LOCKEE oc 
“INSURE THAT 


“MO-LIL-OZRAI-E, SK11 BASIC LOGIC TEST 1 MACY11 30(1046) O6-JUN-77 14:40 PAGE 29 
SeRKJE .P 2! L9-APR-7TT 09:14 TS C 


ws &: KIJE. ee | HECK RKCS I BIT - . 
1438 
i4 ; 
138¢ oe SRERSSSHASRESSHSRSSSRSSRSRARAASASREFSLEREEESES4O 924449599544 44 
144] -ETEST 6 CHECK RKCS SSE,EXB,FMT, 186 BITS - §,9,10.i1 
1442 ; THIS TES CHECKS IF THE SSE,’ExB, FMT & IBA'BITS CAN BE WRITTEN 
1443 :#AND READ BACK CORRECTLY 
iss ee UTTTITITTCITITITITIT TTT TTT iii iilittliiiilliitttiit 
L445 903192 goggss tST&: SCOPE 
446 104 Ole70: 900400 #400,R1 -INITIALIZE BIT TO BE WRITTEN IN RKCS 
1447 903119 O13702 001250 MOV RKCS Re 
! 003114 O1011e 1S: MOV Rl. ake -WRITE THAT BIT IN RKCS 
1449 002116 011200 MOV are. RO : GET PKCS 
1450 003120 042700 code200 Bic #200, RO “MASK CNTRL RDY 81] 
1451 003124 020100 CMP R1,RO at TTes a0 BIT SAME AS THE 
- ‘ 
! 003126 o0140S BEO 2$ BRANEH OTHERWISE REPORT ERROR 
1454 003130 910137 001162 MOV R1. SREGO : EXPTD RKCS 
t 003134 011237 O01164 MOV JRe, SREG1 “GET RECVD RKC 
l 140 aries ERROR 3 ‘BIT THAT WAS WRITTEN (AS IN SREGO) 
1457 une NOT en 
ie eal te l 2s: ~ Rl -SHIFT TO WRITE NEXT ae 
! 144 701 19000 C #10000,R1 ‘HAVE U CHECKED ALL BITS 8, 3, IC, 11 
160 003150 00136! 1$ -IF NOT, LOOP BACK & CHECK THE Nxt BIT 
1462 . 
pe ] hy eee oe EOE. ¥ 4 ee 
] -#TES K, Y 
1465 THIS rec Rue EKS any BEY ENG T0 GP THE UNUSED BIT OR THE RESO iNLY 
1466 -#BITS DOES NOT SET THEM OR AFFECT ANY OTHER BITS IN RKCS 
1467 ad SSRESESESSSEESESSESESEES ESSE SES EEEES EAE E EEE 4EE EE EEEESE EES 4 422 ES 
1468 003152 oog004 +ST7: SCOPE 
1469 003154 913700 901250 MOV RKCS.RO 
1470 OO3160 Ole710 170200 MOV #170200, JRO - TRY SETTING THE UNUSED SIT 8 RD 
1472 QO3164 01100: MOV R OY as 
ee 003166 042701 0199000 BIC #10006 RI RASK BtT 12 
1474 003172 922701 900200 CMP #200, Ri -IS "RDY’ BIT SET? NO OTHER 
1475 BIT SHOULD BE SET. 
3 Ba Bate ee 
i4 012727 000200 Otilée MOY #200. SREGO - GET EXPCTD RKCS 
1478 003206 911037 O01164 MOV RC, $REG! GET RKCS RECVD ; 
1973 p03212 104 ERROR 4 -TRIED TO SET UNUSED 8 RD ONLY BITS 
1481 ‘SHOULD NOT HAVE AFFECTED ANY BITS 
rags 
1484 WUTC T TTT ttt iret i ttt ttt iii ttiiititis tire iris rece sly Stee S 
1485S :#TEST 10 CHECK THAT 'SO’ BIT (0) CAN BE SET ; 
14B6 -#THIS TEST CHECKS THAT THE ‘GO’ BIT CAN BE SET, BY PERFORMING 
1487 -*CONTROL RESET & SEEING THAT THE EXB 8 IBA SET PREVIOUSLY 
14e9 +s EEE ERESESE SES RES EERE SES ERELE LSS ERERRARAESEREERERERRERER EEE ER ES 
1490 003214 oc0004 tST10: SCOPE 
1491 O03216 012746 ocoz40 MOV #340,-(SP) 
1492 002222 0128746 902220 MOY #b4S\-(5P: 
1893 S02226 90000 RT] 


“fp - 


Sex ie P 


7 
a< 


013701 
le7ll 





mais 


HTUN INU Un nianania 
0 + b-* b+ b= b= 0-2 bo p= po be 
OM IMU CUI; O 


aris said 


UUTUN 
RUE 


637 


-- hb bb + bb "bb 8 = Pe OO + bo bo 


\ =) 
—_ 
8 
Oo 


1 


ae 


ODOOODOOr-OW 
Ve 


tt oad 


Rooyen 
CORO a 


© 
a 
e-- 
© 


001250 
007576 


906200 
001182 
o0sc0c 


000209 


001162 


908434 


000200 
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001206 


001110 


MACYI1 30(1046) O6-JUN-77' 14:40 PAGE 30 
T10 CHECK THAT ‘GO’ BIT (0) CAN BE SET 
64S: 
MOV KCS, RI 
MOV as b.aR1 ;SET ALL BITS EXCEPT GO 
RESET IN 
RRB’! e200, aR1 aa Feats was c 
BEQ oe BRANCH OTHERUISE MREPORT ERROR 
HOV 1, $REGO } 
- ERROR ah wee DID NOT CLEAR RKCS 
va INC aR st & BonitRot NRESET 
TSTB—s- RO eV EU WAITED LONG FOR CNTRL RDY 
BMI 3$ ‘IF YES, BRANCH & REPORT ERROR 
TSTBs.-so RL -WAS CNTRL RDY SET? 
BPL 2 -IF NOT LOOP BACK & WAIT IT 
CMP #200, aR1 -IF CNTRL RDY WAS SET, CHK IF ‘CNTRL 
*RESET’ CLEARED IBA 8 EXB B 
BEG TSTLl -: IF YES, EXIT. OTHERWISE ERROR 
MOV JR1, SREGO GET RKCS 
ERROR 6 ;G0_ BIT COULD NOT BE SET OR FAULT IN 
-THE ’INIT L’ GENERATING LOGIC 
TST1! : EXIT 
3S: JSR Fo, GT3RG ig” GET RKCS, ER, DS 
ERROR 7 : CONTROL READY DIb NOT SET AFTER 
‘CONTROL RESE 
rit "a a MA ae 
S$TEST 11 WITH A COUNT 


#(G0 BIT) ARE AVOIDED SO T 


téT11: SC 
MOV #10, STIMES 
MOV #340, -(SP) 
MOV #64$.-(SP) 
RTI 

64$: 
MOV RKCS, RO 
MOV 87576, JRO 
CLR 
CMP #200, ARO 
BEQ 1$ 
MOV RO. $REGO 
MOV JRO, SREG! 
ERROR 19 

1$: MOV 
MOV tes, $LPERR 
MOV 5: RS 

2s: MOV Rl dRO 
MOV R1'Re 
BIS B20 R2 
MOY JRO, R3 


CHECK RK PATTERN 
5 aTHTS TEST CHECKS THAT THAT RKCS CAN BE CLEARED FROM 7576 THEN & COUNT 
TERN FROM 2 i ars NOTE: 


ALL PATTERNS WITH SI? O SET 
1 MAY NOT ti AN UNDESIRED CPERSTION. 


T RKl 
CONTAINS THE COUNT BAT TERN THAT WAS WRITT 
seseunbueayennensaensunentoossnanbeossanensotesneaenaesasantsy 


;;D0 10 ITERATIONS 


;SET ALL BITS IN RKCS EXCEPT GO 
; CLEAR 

-WAS IT CLEARED 

: YES, BRANC 

GET “RORES OF RKCS 

iRKES COULD NOT BE CLEARED 
“WRITE THIS BIT IN RKCS 


THAT WAS WRITTEN 
ROY BIT 


ion “Se opel RK11 BASIC Loeee TEST 1 le 30(1046) QO68-JUN-77 14:40 PAGE 31 


RKJE.P11 | 19-APR-77 09:1 Til CHECK RKCS WITH A COUNT PATTERN 
} MP R2,R3 ;WAS THAT BIT WRITTEN CORRECTLY” 
tee? Bosdae | BOTaae fro «Ct«*S YES, “BRANCH 
1552 002434 010237 001 182 NOV Re SREGO tag EXPCTD WORD 
4 ‘ 
ige3 ete Aaaa3 ERROR 3 BED Not "READ Bax THE BIT THAT 
is ven ‘WAS WRITTEN 
1557 9034S0 901405 , BEQ TSTl2 “EXIT 
1S58 003452 701 oocoo2 3s: ADD #2,R1 : AENERAT NXT part RN TO BE WRITTEN 
1559 003456 022701 010000 CMP #10000, R1 ‘ALL PATTERNS WRITTEN? 
1360 003462 901355 , BNE 2 | :IF NOT, LUP BAK & CHK NXT PATTERN 
4 20s 
lS6e2 a. et a aS 
1563 #TEST 12 CHECK THAT RKUC, BIT O15 CAN 3 SET 
1565 *THIS TEST FLOATS A '1’ THR WC BIT 0-15 AND CHECKS THAT I7 
1565 -¥CAN BE READ BACK P CORRECTLY. RO CONTAINS THE WORD THAT IS WRIT“EN 
1566 isepeeslineueracsunetensensenssnininanesasensuasanssnsonssssoss 
1567 OO3464 oocco4 téT12: SCOPE 
1 612700 coool MOV 1,R0 INITIALIZE RO FOR THE BIT TO SE WRITTEN IN Src 
l 013701 401252 MOV RKtie RI 
1570 003476 012737 003504 901110 MOV #1$, $LPERR ;SET UP RETURN ADRES FOR 
157) -LUPING ON ERROR (Sk 9) 
1S72 003504 010011 13: MOV RO. aR1 ‘WRITE THAT BIT IN RKWC 
1573 003596 911102 MOV ari, Re 
1574 903510 CMP RO, Re -WAS IT WRITTEN CORRECTLY 
1575 O03Sle O0140S BEQ 2s -YES, BRANCH. THERWISE ERR 
1578 003514 010037 o001162 MOV RO, SREGO ‘GET’ EXPCTD RKWC BIT THAT WAS WRITTEN 
1577 603520 010237 001164 MOV Re, SREG1 “GET RKWC (THAT WAS READ BACK, 
1578 003524 10491! ERROR -DID NOT READ BACK THE BIT THAT 
1573 -WAS WRITTEN IN RKC 
1580 003526 006300 2g: ASL RO -SHIFT TO WRITE THE NXT GIT 
158: 002530 001365 BNE 1$ IF ALL TME BITS HAVE NOT SEEN 
138 -DCNE, LOOP BACK 
iS84 eRe ee tne mar uth A a a 
1585  STEST 13 CHECK WITH @ COUNT PATTERN 
1586 #THIS TEST AME CKS THAT RKWC CAN BE CLEARED. THEN A COUNT PATTERN 
1587 ROM 177777 IS WRITTEN & CHECKED IF OF WAS WRITTEN cORRECT_ 
1588 | ; Pe Reece Ea 
$85 003532 713: SCOPE 
1590 903534 912737 o00010 op1>c¢ MOV #10 STIMES ::D0 10 ITERATIONS 
15691 003542 013700 O0i2Sse2 MOV RO 
1538 710 177777 MOY ill : SE aft, BITS IN RKWC 
l l CLR 
$94 003554 005710 1s! ; WAS IT CLEARED? 
iE 001162 MOV ti SREGO ; ’ aBReS OF RKC 
1 4 011037 9OO1164 MOV aro, SREG1 -NO, GET RKWC 
1398 003570 104010 ERROR -RKWC COULD NOT BE CLEARED 
l 72 l 18: CLR R} “INITIALIZE COUNT PATTERN 
ie Pees lene a7 RYE 

wv adi ; 

1603 903606 910110 2s: MCV =—»s- REI RO WRITE THE PATTERN IN THE REGISTES 
1604 003610 91:002 MOV srt BE 
1655 3Ozle detl0e CMP R} R2 -WAS IT WRITTEN CORRRESTLY” 


— 


COrrrrowuwrd?w 
e--8--8 7 b+ b+ « bb -- p<) + 
OCD WON tutue-- 


BERS Pues 


SERS 


*- 


Rieter etatetet ete 
eat EO 


~, 


OZRAI-E, QKL1 agi LOGIC TEST 1 MACYLL 3O(1046) O6-JUN-77 14:40 PAGE 32 
Spx 3E-B1) "19-APR-77 09:14 T12 HECK RKWC WITH A COUNT PATTERN 
Pose aia? polis2 oy ORY SREGO CET EXPECTE 
SasE35 153 001164 MOV EI. $REG BEY RE THT URE RE CVE 
003626 10401! ERROR 11 ‘DID NOT READ SACK THE PATTERN THE 
‘WAS WRITTEN INTO THE REGISTES 
005205 INC RS 
003632 OCi#Ce BEQ TST!4 
003634 095201 23: INC R} ET EMENT COUNT PATTERN 
003636 O0:362 BNE 2 i LUF BAK & WRITE NXT PATTERN IF NOT 
‘DONE WITH ALL 
a ee 
SETEST 14 CHECK THAT RKBA CAN BE SET 
-*THIS TEST FLOATS Q& °1' THROUGH RKBA BITS 0-15 AND CHECKS THfT 
je CAN BE READ BACK CORRECTLY. RO CONTAINS THE WORD THR? Wes 
ee =~ daabraaene seamen. caudinamtia 
003640 900004 é714: SCOPE 
003642 Oie70C oo0001 MOV #1,RO i INIT IOLIZE RG FOR BIT TO BE 
‘WRITTEN IN RKBA 
O00364% 01270: o01254 MOV RKBA.R1 
903652 012737 OO3ED 001119 MOV #1$, $LPERR :SET UP RETURN ADRES FOR 
‘LUPING ON EROR (SW 12) 
010011 1$: MOV RO, aR! ‘WRITE THAT BIT IN RKBA 
903662 011102 MOV ari. Re 
003664 d20002 CMP RO, Re -WAS IT WRITTEN CORRECTLY? 
003666 001495 BEQ 2 -YES, BRANCH 
003670 010037 001162 MOV RO, $REGO -GET EXPCTD RKBA (BIT WRITTEN 
74 010237 O0::64 MOV Ro’ $REG1 :GET RKBA (BIT READ BACK 
003700 104013 ERROR 13 "DID NOT READ BACK TME BIT THAT 
-WAS WRITTEN IN RKBA 
603702 006300 23: ASL RO ‘SHIFT RO, TO WRITE NEXT S17 
993704 901365 BNE 1$ “IF ALL BITS ARE NOT CHKD, LOOF 
-BACK & WRITE NXT BIT 
- SSSLSASSEELAALERSASEAEARELL LALA EASLALEELASELASLARAAALAA ALE LAAT SS 
SSTEST 15 CHECK RKBA WITH A COUNT PATTERN 
;#THIS. TE rest CHECKS THAT RKBA CAN BE CLEARED, THEN IT RUNS 4 COUNT 
FROM © TO 177777. R1 CONTAINS THE COUNT PATTERN “CSE weI7TSN. 
sepeneltensensanensueeneensoasusbasinsneonsanaseansaseaeantsse® 
003796 900004 +8715: SCOPE 
903710 012737 OOOCIO o01206 MOV #10. STIMES --DO0 10 ITERATIONS 
003716 013700 soicsy MOV 
003722 012710 177777 MOV #177777, aRO -SET ALL BITS IN RKSA 
003726 005019 CLR JRO : RKBA 
003730 005710 TST aRO ; WAS IT CLEARED? 
003732 001405 SEO 1$ BRANCH 
34 610037 901162 MOV RO. SREGC GET "ADRES OF RKBA 
40 011997 O0ties MOV anc SREG! GET RKBA 
44 104019 ERROR PBA COULD NOT BE CLEARED 
003746 005001 1g: CLR Rl -INITIALIZE COUNT PATTERN 
912705 177773 MOV #-5,RS 
754 0128737 O0376= 001110 MOV wo | SLPERR 
30376e 012110 2g: Sy RI. aRO “WRITE THE PATTERN IN THE 


; REGISTER 


HOS 
ead NORTE: Fab BS Bg PGS TEST NYT? ORR aaah ultn A COUNT PATTERN 


i 


14: wart te on “the Oo IT WRIITEN CORRRECT 

° v 4 \w LY? 

1S&é4 skbas® 1407 BE YES, BRANGi 

fe hee hue RUE ee oe a ok ee 

e esd” ‘ 

ieee Bowoos faae73 ERROR ‘BED NOT TEE Ca rtERN THe” 
: 968 ae : WAS RITIEN- IaTO” THE REGISTES 

'253 Beupoe BeTsae ae Terie EXIT 

167i 904010 905201 38: INC ‘ENCREMENT COUNT PATTERN 

1672 004012 901363 BNE 58 UF UP BAK a WRITE NXT PATTERN IF "O07 
+Po2 ONE WITH ALL 

ro -T 

1675 jseseneseeneeeee eT Lane 
Ls7é joes CHECK T RKDA CAN BE SET 

1877 AS TIS TEST fonts a *y’ THROUGH RKDA AND CHECKS THAT THE WORD weI7~ 
1678 -#WRITTEN IS READ BACK CORRECTLY 

67s i pee 2 AN, RE. 
1680 14 900004 tetig: SCOPE 

1881 16 005077 175226 CLR aRKCS “CLEAR RKCS 

} 2 612700 ocd MOV #1,RO INITIAL 13E RO FOR BIT 70 SE WRITTEN IN SKDA 
1683 904026 01370; 901256 MOV RKDA.RI 

1684 O04032 012737 9BD04040 oD111C MOV #1$, $LPERR ;SET UP RETURN ADRES 

1685 -FOR LUPING ON EROR 

$96 010011 1S: MOV RO. aR! ‘WRITE THAT BIT IN RKDA 

} e O1110e MOV ani, Re 

1688 904044 O2000e CMP RO, Re ;WAS IT WRITTEN CORRECTLY 

1689 O0404% 001405 BEQ 2$ 

1690 010937 cO:is2 MOV RO, SREGO 'NO, GET EXPCTO RKDA (BIT WRITTEN. 
1691 OO4054 010237 01164 MOV Re, SREG ;GEt RKDA (BIT READ 

169e 904060 104015 ERROR 15 -DID NOT READ BACK THE BIT THAT 
1693 “WAS WRITTEN IN RKDA 

1694 904062 9CE3C0 2g: ASL RO : SHIFT TOWRITE NXT SIT 

1695 504064 4013¢e5 BNE 1$ ‘IF ALL BITS ARE NOT CHKD, LOOP 
69 “BACK & WRITE NXT BIT 

1698 ; FFLASLERRAR RELL EASRERE EERE EEE AEAPRAAEEEREERELER AREAL ERATE E LER ET 
1699 STEST 17 CHECK K RKDA WITH Q@ COUNT PATTERN 

1700 ;*THIS TEST CHECKS THAT RKDA CAN BE CLEARED, THEN A COUNT PATTERN 
1751 -¥FROM O TO 177777 te WRITTEN AND CHECKED. Rl CONTAINS THE COUNT 
+70 -#PATTERN TO BE WRITTEN 

17 ye > icine tetera 
1704 004066 900004 +871 COPE 

1705 004070 012737 o000ic o01206 MOV #10. $TIMES ::D0 10 ITERATIONS 

1708 004076 013700 0O01255 MOV % 

1707 O04%102e 012710 177777 MOV 8177777, aRO : SET ALL Bis IN RKDA 

1708 OO04106 l CLR JRO 

1708 Bou 005710 rs! RO MBS IT SEARED” 

1711 114 Ol o011¢2 MOV RO, SREGO “GET ADRES OF RKDA 

1712 904120 011037 001164 MOV = MRO, SREG! :G0, GET RKOA 

1212 O04ie4 104010 ERROR 10 :RKDA COULD NOT BE CLEAREC 

i715 904126 O0S00: 1$: CLR R! -INITIALIZE COUNT PATTERN 

i716 004130 012706 177773 MOY -5 RS 

i737 GOSIlSS Qle737 CO4%i4e 60!118 MOV 23, $LPERF 


MQ=1)-0ZRK gSIg LOGIC TEST 
eee A os Ci 
ove 910110 


-* 
III 
sobieaS 
B88 
w 


mw 
™ 


IMIN™Ia 


rye 


“te “te > + + &-«o-<6-< &< 


II) 
GITue- 


“I INN™N 


? 


001252 
177775 
177777 


Bis Siti 
? 
? 


Pee 


fat 
ru 


or (rue 
ae 
or 


+? +b b= & b+ hb b&b b= bo ee 
cs 


* -e-*® «@ <- & -@--6--6 © +0 «+ -0 - &< 6-8 + «+ © + -&-*6-- ><> ¢&-- &<——-—8 < 


761 
7 

re ee Hees BS 
765 OO4262 O0d0d2 

seo GoNsEY 013700 901250 
Bon ER Be 
oo go4s76 ODen0S 

77 

ooh BBUR8 {Pech 

-75 Fou204 Bos2ne 


MACYI!: 30( - yy 27 ye 
eed ice ait isi Ge 3 
2$: MOV R1. aRO -WRITE THE PATTERN IN THE REGISTES 
MOV arb, R2 
cP Rl. Re -WAS IT WRITTEN CORRRECTLY” 
MOV R1,SREGO GET EXPEC ED WORD 
HOV Re. "$REGI ET WORD THAT RECO on 
THR 
soe WRITTEN po BACK THE REGISTER 
INC RS 
BEQ TS5T20 . EXIT 
3$: INC Ri : INCREMENT COUNT PATTERN 
BNE Px 3 LUP BAK & WRITE NXT PATTERN IF NOT 
‘BONE WITH ALL 


;jSunNNaNoNuanaansnesnennenseesenssesenstanssazsatssastastsstss 
TE C 


CHECK THA RKDA CAN BE CLEARED BY RESET 
pe “bay: THAT RKWC, RKBA AND RKDA CAN BE CLEARED Sy SLs INIT. 


succeulealibscteldubisxteskteldibsavecqunenseusvetsesvecsesenos 


+éT29: Sc 
NOV RKWC ,RO s INITIALIZE RO TO PRINT TO RKWC 
NOV a-3,R1 -SET UP COUNT FOR 3 REGISTERS TC BE CHKO 
iS: MOV #177777, (RO}+ ;SET ALL BITS IN BKC 
INC RI RK 
BNE 1$ RK 
RESET : ISSUE A BUS INIT 
23: T I Re) Me T GISTER (PTD TO BY RZ) CLEARED” 
MOV R2 ¢ S THAT 7 HAS NCT CLEARED 
MOV eich Se fe of Thad hte 
ERROR 17 STER eS mn a3) eR OULE 
33: TST (Re)+ sR RENT POIN OER RYO wt GISTER 
INC R3 ;HAVE 1 ae 
25 -IF NOT, oNOOP baci 8 CHK NXT 
Tee ATTA ECKIMAT RKCS, RKC, RKBA, RKDA CAN BE CLEARED & 
 STEST 21 CHECKTHAT RKCS, RKWC, RK in CLEARED BY CONTROL RESET 


; #RKCS T ee BME at SEF 

;#70 1 "RESET IS RAND iT IS KED 
:#IF ALL THESE Reais ERS ARE CLEARED. 

sj Pepnesnnamesnannedmnnnennnnsananteuseanepeoneneueqnuacnnensnoes 


SCO 
MOV #340, -(SP) 
3a #64S. -(SP) 

54$: 

MOY RKCS.RO : 

MOV 87560, JRO -SET ALL WRITABLE BITS IN RKCS 
INC gRO -SET GO. CONTROL RESET 

1S: TSTB afc 01D CN CNTRL ~ROY SET? 
BMI z 
INC RS Bite. oa 


: TEST 1 MACY11 30.104 -77? 14:40 PAGE 3S 
Mattel -E. GaAs BBSTS LOGIC Te Meee eee euaToRKeS, RWC. RKBA. RKDA CAN BE CLEARED BY CONTROL RESET 


1774 004306 001374 ie i: i _— ; che BAK & WAIT 
i558 vaticgt atta : OR ' : te bib NO I SET 

(¢ iN 

7 000209 0,aR0 iO meat CLEAR RKCS 

ir Bade Bbist8 . ye BE ee ie 

1 MOV : } K 

176) Oiiaad Olin oles Hoon pads SREG! ots oe 

1783 004336 013702 001252 3S: MOV RKWC, R2 

1 3B ten 5 177777 Hi Re yb aae Rl 

( f 
17a Sec tee sa MOV Bt (RO)4 :SET ALL BITS IN RKWC 
17 3$2 010122 NOV RI, (Re) RKBA 
994254 ; 

ae BY nese op, <00,conno. BERET 

? ; RE T’ NE. T 1S 
173s Re : a Lada ese 
1794 REPORTED, *NOTE THAT THE PC I RERROA 
> 
17 Foca THIS sf A VERY bli ERROR 
i797 ied -_ URS GO BACK TO TEST 

7 77 775 e- 

1738 Sb43e5 m6714 , ug: TS! (RH 6g THE REGISTER CLEARED? 
1801 010437 o0il62 MOV RY. SREGO -GET OF REGISTER IN ERROR 
1802 004374 011437 001164 MOV aR’, SREGI -GET C OF THAT REGISTER 
$03 oo44oo0 6104014 ERROR :SNTIO T ESET DID NOT CLEAR TH THE 
:805 oo4402 905728 Ss: TSI (RH) INGRENENT POINT POINTER TO NXT AeCTSTER 
1807 5pa4 be BbT Se b BNE 4§ -TF NOT, LUP BAK 8 CHK THE NXT REG 
tte i ATEST*E2 "Check THAT EACH RKLL REGISTER 1S UNIQUELY ADRESSED 
Teli *THIS TEST CHECKS THAT EACH RKI1 REGISTER CAN BE UNIQUELY ADDRESSED 
gig #1 RKC <RKuc sets In hoi T 10 177777 (17576 FOR RKCS) 
ave ; 

4 - Y OT R FOR ERRONEOUS CLEARING BECAUSE OF 
iets  QORESSING ERFOR oTUeR HER OR TF 60 iS cre HE MULT ADRESSING ERROR IS REPORTED 
2816 } SS IN RO IS CHANGED TO THE NEXT REGISTER & THE PROCESS IS 
1818 ee SEEKS EEEEEEE EEE E SEER EEE EERE EARS EERE ERASE ERE EERE REE EES ERR SEEDS 
1819 oO4410 ojgoco4 té722. SCOPE 
1826 904412 012746 ooc340 MOV #340, -(SP) 

1821 OOW4IE O1e746 904424 MOV #64$.-(SP) 

io teas wa 

ge 004424 012705 177771 "MOV 8-7, RS ; SET UP COUNT FOR THE ; 

1826 004430 013700 of1244 MOV RKDS.RO ORT TTAL TSE POINTER TO REGIS TO SE SET 
ge? 34 912701 177774 1$: MOY #-4_R 

i 13702 001250 MOV RKCS Re ; _ 

1823 GON4H44 012722 O:757E MOV #17576. (R2)+  ;SET BITS IN RKCS 


Pa 


03 
SGabteORRRI-E. GRA BASIE LOGIC TEST 1 PggYl1 SQUUOe Derr RCL REGISTER TS UNIQUELY ADRESSES 


1830 pousg QierRe 7? 23: NOY y77777, (Re) ;SET BITS IN i 
183¢ 004456 001374 BNE 8 IE cn 
CLR R CLEAR Recta R { ADOR 1S IN RO: 
Hee RIED POSNIO ac, ue ARO. 
1836 DO¥ye6 de000e CHP RO, Re ia THE CLEARED REGISTER RKCS? 
1938 - aes ob IT RTENTLY 
1 004472 011203 MOV dR2, R3 Bits CAUSE SNORE SING 
ted; Ob400 G25702 O0rs7e Big a17ge0p RS 
teu2 BO4e04 B51 BNE OURS -IF SO 
1843 004506 905726 - 33: Ist (RB) INCREMENT POL SaINTER oF NEXT REGISTER 
1845S Spae st 7 4g: CMP Re. RO ‘is Fee CLE cared REGISTER R SAME AS 
1846 THE REGISTER POINTED TO BY Re 
1847 004516 O01404 BEG S$ » ae ae 
18u8 Rests Re Whe TRADER TENTLY 
1850 ARED WHEN CLEARING THE REGIS 
ie i , DUE TO 
i : 00420 011203 Nov ane R32 ET ¢ iN t mors BEING CHECKED 
igee QO4ES4 OOSibS tot ReCK Te BY BIT ue ERRORNEOUSLY CLEARED 
1856 004526 001007 BNE 6S Che ERROR 
1957 nie 005722 S$: TST (Re)+ : aha PTR To NEXT REGISTER 
iBe8 l BNE Hf ; CK THE CReCT 
1 7 TST — (ROI+ NT_PTR GIS TO SE CLEARED 
INC ORE pata i REGIS BEEN CHECKED? ™ 
i mes Bee S i sea 
BES 46 BOs? 001162 6S: MOV RB SReco a RES = THAT WAS 
1867 o04sS2 010227 901164 MOV R2,SREG1 u ADRES OF REGISTER THAT GOT 
1863 OO4SSE 011037 OOLIEE MOV JRO, SREG2 eae G THAT WAS 
1870 :ADDRESED 8 MEANT TO BE CLEARED 
i871 p04S62 019337 901170 MOV R3, SREG3 : GET ONTENT OF REGISTER THAT GOT 
1855 oo4seé 9104920 ERROR 20 Span RSTERD ERROR. TRIED 
a Babe St athe tae 
1876 : 0 SNE RE S IN 
1877 ‘WAS THE ONE. THAT GOT ADRESED INSTEAD 
1878 904570 022702 o01250 CMP RKCS, Re 
1879 904574 901744 BEG 3$ ; RETURN TO THE 
1980 004576 900754 BR $ RIGHT POINT 
tt Te ee oe ES eae Ye 
i :#TEST ; THIS TEST CHECKS 1 Tha TOTES Oe Ese BY BE eORRE ORE 
1264 RESSED CORRECTL 


‘SBITS IN ALL REGISTERS THAT CAN BE WRITTEN ARE SET. THEN EACH 


MO-L1-O2RKIJ-E, RKI1 LOGIC TEST 1 MACY11 30(1046) O6-JUN-77 14:40 PAGE 37 
OcRKSE P11 19-APR- 714 Te3 CHECK THAT HI & LO BYTES OF RKCS CAN BE ADDRESSED 


1886 ;#BYTE OF RKCS IS REFERENCED BY ‘CLRB’ 8 IT aes THAT ONLY 


4B 
Oo 





1987 -#THAT BYTE & NO OTHER REGISTER BYTE GETS CLE 
Tf: : : sigaueeedeegenvanssensanennenenentanssneseanensoaessosessossssoss 

196 BBYEDE ert 177776 a2, Re : SET COUNT FOR 2BYTES-HI & LC 

1991 004606 0612700 177778 HOV | SET COUN 

BRIS ye 

! RTI 

ee — — TIALIZE PTR. TO RKCS 

18a Boaesa 8t3o8t BASES V RRS RL, «ABET APL TSE ETH, akc C3 

1898 004634 012721 177777 1S: MOV 8177707, (R1)+  ;SET ALL BITS IN 

es Sag ee 

1901 44 013701 001250 MOV RKCS,R1 ‘INITIALIZE PTR TO RKCS LO BYTE 

1302 004650 105011 25: CLRB Sa :CLER RKCS LO OR HI BYTE 

1 ah taal Ht 174370 NOV CS.R3 GET RKCS WORD 

1905 004660 O22702 177776 CMP #-2,Re RU CHKING HI OR LO BYTE? 

ap SOYEEE AEE 177600 Bie #177600,R3 ASK HI YT 

1908 004672 001417 BEQ 4§ -OK IF LO BYTE WAS CLEARED 

1909 O04674 005037 oO0116e CLR SREGO : GET TD RKCS. 

1910 004700 010337 OOLIE64 MOV R3, SREG! ‘GET RKCS RECVD, LO BYTE 

1911 004704 104022 ERROR 22 “ALL RK11 REGISTER’S WERE LOADED WITH 
1912 :1°S THEN TRIED TO ADRES 8 CLR RKCS 
1913 -LO BYTE, IT COULD NOT BE CLEARED. 
1914 000411 BR ug 

1915 004710 042703 000377 3S: BIC #377 ,R3 

1916 004714 OO1406 BEG 4 Ok IF “HL BYTE 

1917 004716 005037 001162 CLR SREGO a EXPCTD R RKC cS HT Hf BE 

1919 004722 000303 3 

1920 724 610337 001164 R3, $REG! 

1921 004730 104023 ERROR 23 -ALL RK11 REGISTER’S WERE LOADED w 

:3¢e 17S THEN TRIED TO ADRES & CLR Bee 
1923 ‘HI BYTE IT COULD NOT BE CLEARED. 

1924 004732 012700 177774 4g: MOV #-4.RO sINITIALT T FOR REST OF REGISTERS 
1928S 004736 013705 001250 MOV aKcS RS : INITIAL NTER TO RKCS 

1926 004742 005725 cS: TST (RS)4 : INCREMENT PTR TO NXT REGIS 

1927 004744 O0S200 INC RO -ALL REGS DONE? 

1928 OO474E OO1417 BEO 6$ ‘IF YES, GO 8 ADRES TO CLEAR RKCS HI BYTE 
1929 004750 011502 MOV IRS RB -TF NOT, GET CONTENTS OF THE REGIS 
1234 i BEING, CH ; 
1931 o0047S2 005103 COM R3 } E THE CONTENTS, SHOULD BE 
1633 004754 001772 BEQStié*SS OE VTOUSLY SET TO IT’S 
1333 RERANCH 1PeNoT RePbat PREDR 

1935 004756 010137 OClLI&62 MOV R1,$REGO : GET BS BUTE ADRES WHICH WAS TRIED 
Rs O04762 O10537 OO1164 MOV RS, SREG1 er S OF REGIS WHICH GOT ADRESED 
1939 OO476E 012737 177777 OOLIEE MOV 8177777, SREG2 :GET_EXPCTD CONTENTS OF REGISTER 

194: 004774 908102 COM R2 “GET CONTENTS RECYD FROM THAT REGIS 
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Natt CBT E: BKABRBBS ISAK PGIS TEST 1 FBGYIE SRCARNOL POAT SCG ertés OF RKES CAN BE ADDRESSED 
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SSRI © 


oo = 0 
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EE RES PR RRE LS Le sae hat 


SG Cees 


PRPSKA BOS ERE OR 


aietaistoistatotatata 


& -0~- > + &— >= bb b> b= bb 0 8 8 8 bo 0 2 = 2 0 2 = bb 8 pe be = 
+e = & =< b= bs ee re Sr oe 


D 
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004776 
ocsode 


005010 
o0s01le 


ae 
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2RS2 Senolh 


-S 
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010337 
104024 
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OoOoooo0o 


rerucaneny 
ayes 
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foe 
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177777 
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000001 
177400 
000377 
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000001 


001164 


ERROR ——— RK11 REGISTERS WERE LOADED 
rete RERz a 
BYTE (abies UNDER ’BYTE’ IN ER 
Using "eRe er aut REGISTER (ADRES 
- ' TER MSG) GOT CHANGED AS A RESULT. 
6S: INC 3 POSITION PTR TO RKCS HI BYTE 
INC R2 Ene CER H HI & LO BYTES (RKCS) 
BNE 2$ -IF NOT BRANCH BACK 
EE ET eer cK THAT HI BLO BYTES OF REMC BA DA CAN BE ROD 
SSTEST 24 CHECK THI é LO BYTES AN BE ADDRESSED 
:*THIS TEST CHECK BYTE OPERATI ONS ON RKUC RKBA 5 RKO RKDA CAN BE DONE 
: #CORRECTLY. FIRS RUC gaa’ 15 a TO 1 
- #1) TE BOINtED 3° oY Is CLE RED 1 To eRe. 


;#2) IT IS CHECKED THAT ONLY OTHER BYTES GET CLEARED 
3) POINTER Re IS INCREMENTED 0 The NEXT REGISTER-BYIE 8 THE PROCESS 
;#1S F THEN HI-BYTE 1S DONE. 


ED. TE 
snausebasbectatsaesdesebesacnscaessanhsususseasraessesesserts 
SCOPE 


+éT 34; 
MOV #340, -(SP) 
MOV #64$, -(SP) 
- RTI 
MOV #-6, RY -SET UP COUNT FOR & REG-BYTES TO BE ADRESED 
MOV RKWe. Re - INITIALIZE POINTER TO RKWC 
1S: MOV #-3.R | 
MOV RKCS 
MOV #7576. ( -SET RKCS BITS 
2$: MOV ite tale : RKWC 
INC RO : RKBA 
BNE 2$ . RKDA 
CLRB = aRe ;ADDRESS & CLEAR REGIS BYTE UNDER TEST 
MOV R2,RO 
BIC #1°RO ; CONVERT THE BYTE ADRES INTO WORD 
“ADRES THAT IT BELONGS TO 
MOV JRO, R1 :GET THE ENTIRE REGIS WRD 
BIT #1,Re WA - CLRD BYTE HI OR LO? 
BIC #177400, RI : WAS LO-MASK HiT BYTE 
3S: BIC #377, R1 -MASK LO BYTE 
4g: BEQ 5$ {WAS THE ADDRESSED BYTE CLEARED? BR IF YES 
MOV Re, SREGO ‘GET ADRES OF REG-BYTE THAT WAS 
“TRIED TO B ADRESED 8 CLEARED 
BIT #1,Re 
BEQ 11$ 
SWABSCtiéRzd&‘L: 
11$: MOV R1,SREG1 -GET CONTENTS OF REG-BYTE 
ERROR 25 ‘TRIED TO ADRES & CLR A REGISTER BYTE 


MD- 11-O2RKI-E, RK11 BASIC LOGIC TEST 1 MACY11 30(1046) 06-JUN-77 
OZRKJE.P 19-APR-77 09:14 T24 CHECK THAT HI & LO 
1998 
1999 
2000 o0Si42 017701 174102 cs: MOV DRKCS,R1 
O05 146 922701 007776 CMP 87776, R1 
152 001410 BEQ b$ 
005154 010237 901162 MOV R2, SREGO 
Sooe 005160 012737 007776 001164 MOV #7776, SREGL 
200 005166 010137 0011 MOV 1, $REG2 
005172 104016 ERROR 16 
2008 
Sats 
2011 
2012 005174 012700 177772 6S: MOV #-6,RO 
2013 005200 013701 O01e25e MOV RKWO, RL 
2018 005204 102 75: CMP R1,Re 
2016 O0S206 001433 BEQ 10$ 
2017 O0S210 010105 MOV R1,RS 
2018 O0S2l2 O4270S o00001 BIC #1 RS 
2019 905216 O11 MOV ars, R3 
2020 1 oo0001 BIT #1,R1 
2021 O0S224 001003 BNE BS 
2022 26 042703 177400 BIC 8177400, R3 
2023 BR 9$ 
2024 34 O42 000377 9S: BIC #377,R3 
2025 O0S240 301016 9S: BNE 10S 
2026 p0S242 010237 001162 MOV Re, SREGO 
2028 005246 010137 001164 MOV R1,SREG1 
026 
e030 oos2S2 012737 000377 OOLIEE MOV —«- #377, SREG2 
2032 005260 032701 o00001 BIT #1,R1 
2033 005264 OO140! BEQ 12$ 
2034 005266 000303 R 
2035 005270 010337 001170 123: V R3, SREG3 
2036 005274 104021 ERROR 21 
2037 
2038 
2039 
2040 
2041 005276 005201 10S: INC RI 
2642 005300 005200 INC RO 
2043 005302 001340 BNE 7 
2044 005304 G2 INC R2 
2045 905306 905204 INC RY 
2046 005310 O012s3 BNE 1$ 
2047 
2048 
shee 
2051 _SBTTL END OF PASS ROUTINE 
2062 


4:40 
TES OF RKWC,BA,DA CAN BE ADDRESSED 


PAGE 39 


; (ADRES ee "REG-BYTE’ IN ER MSGE), COULD 


;NOT CLEAR IT. 


+ WAS RKCS ERRONEOUSLY CLRD? 


G-BYTE THAT WAS 
SED & CLEARED. 


1’S 
1S-BYTE’ IN ER MSGE ) 
A RESULT. ’ (RKCS EXP’ 

CS (RECVDS? CONTAINS 


CL D- BYTE (PTD TO BY 
TO 


*WAS T LEORe 0 
; SAME AS BYTE TO BE CHKD (PTD 
-IF YES, DO NOT CHK THIS BYTE 


;STRIP WORD ADDRESS FROM BYTE ADDRS 
;I1S THE BYTE TO B CHKD LO OR HI BYTE? 
:HI_BYTE-BRANCH 
;MASK HI BYTE 

;MASK LO BYTE 
;GET ADRES OF REG-BYTE THAT WAS 


; TRIED TO B ADRESED & CLEARED 
T OF REG-BYTE THAT GOT 


: GE 
eer eipctDS CONTENTS OF RES-BYTE 
“THAT GOT ADRESED 


Re) 
BY R1)? 


;GET CONTENTS RECVD FOR THAT REG-BYTE 
L_RK11 REGISTRS WERE LOADED WITH 1°S. 
TO ADRES & CLR *REG-BYT1’ (IN ER MSGE} 


= D 
; REG-BYTe’ a | CHANGD AS A RESULT. 
: (IN ER MSGE) IS THE EXPCTD CONTENTS 


;OF REG-BYT2. ’BYT2-RECVD’ IS THE CONTENTS RECVO. 
- INCREMENT PTR TO NXT REG BYTE 
;ALL BYTES CHKD? 


0, LOOP BACK 
INCREMENT PTR TO NXT REG BYTE TO B CLRD 
ALL BYTES CLRD? 

“LOOP BACK 


: + KEE ELLLEAA ALA L ELE LLKEELALE RELA AAAE RA ERLLRELALELEREARALARFARAPRER 


MO-1i-DZRAJ-E, RKil BASIC LOGIC TEST 1 co ME pai LOR) eee 14:40 PAGE 40 
OeRK I 19-APR-77 09:14 ENO ROUTI 









DORK . sa a om 
2054 #1 T THE ($PASS) 
2055 sal ENDCOF PROGRAM AFTER 1 PASSES 1 THE PROGRAM 
2088 ety END Pas gO" (WHER XXXXX 15 A DECIMAL NUMBER) 
2088 STE THERE IGN’? TURE $0 START 
Spey oococ' ~_ 
905037 901192 CLR TSTNM : + ZERO THE TES 
1206 CLR us >; 2eR0 T oe ITERATIONS 
. 005237 001100 INC +S CRCREMENT THEY 
042737 100000 001100 BIC #100000,SPASS ::DCN’T ALLOW A NEG. NUMBER 
pone? C ( - sLOOP” 
206 l SEOPCT: gHORO . 
Soe eS poss MOV arose +S RESTORE COUNTER 
3070 900061 SENDCT: .WORD 1 
1 SEOPCT . 
Ss See iveme Stik moe GAs) ROE SBSPEGR Frreo 
2074 1Oa40e TYPOS ::G0 - ATMA RECT WITH SIGN 
2075 104401 oO05414 TYPE SENULL :: TYPE A NULL CHARACTER 
507% 913700 o09042 $GETH2: MOV #42, RO :: GET HON] OR ROORE SS 
1405 BEG ee F NO MONITOR 
2078 000005 RESET ::CLEAR THE WORLD 
2079 004710 SENDAD PC, (RO) -:60 TO MONITOR 
2080 000240 NOP -: SAVE ROOM 
2081 000240 NOP - - FOR 
2082 000240 NOP >: ACTLI 
2083 005410 SDOAGN: 
2084 eats 000137 IMP a(PC)+ >; RETURN 
2995 le O02110 SRTNAD: .WORD START! 
206 005414 377 377 900 SENULL: .BYTE -1,-1,0 --NULL CHARACTER STRING 
605417 B15 O42412 O42116 SENDMG: .ASCIZ <1$><12>/ENo Pass’ s/ 
20e8 oos424 osoo4o osis0i de0123 
2089 005432 000043 3 
2096 
209! 
5545 
acgy 
sog¢ 
sha, _SBTTL GT3RG: ROUTINE FOR GETTING RKCS, RKER, RKDS 
2099 - GT3RG - 
sin : SUBROUTINE FOR TRANSFERRING THE CONTENTS OF SKCS, RKER, SkOS 
19} ‘TO §REGO. SREGL, SREGe RESPECTIVELY BEFORE TYPING OUT AN 
2152 “ERROR MESSAGE. 
e153 -CALL: JSR PC, GT3RG 
2195 005434 017737 173610 OO0L162 GT3RS: MOV JRKCS, SREGO :GET RKCS 
2196 O05442 917737 173600 SO!1E4 MOY JRKER, SREG! “GET RKER 
2:07 SOS4SO 017727 173670 O011ee MOV IRKDS , $REG2 -GET RKDS a ae 
6:06 OOS4Se 000207 RTS PC sEXIT FROM THIS SUBROUTINE 
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vurututuru 
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CED ~ JCF Cast uae 


rurururorururorurururururur 
7b a ed el te Ae ee ee ee ee ee a 


CORRE tahoe 


FAS BZRIRRE Bmiatyt 
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OT ae eta a 


PICU PUTO IUTUrUNRTUFUrUrUurUurunifururururururururururururururninirurorr 
ek ek eek Be a i ie ai Me ik Mek De i i ie a eh i i a ee De De ee ed A ee i ed ee ee ee ed ee ee ed 
Ply ar 
te -C 4) 


ercrin 
ait 2 Gat 


~ = « 


o 


904737 
oir? 3? 


«es =OeRhS J-E, Rk) BRS! 
<3 19-APR-7T7 
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¢ LOGIC TEST } 
“36:14 


i 


00S434 
173566 001170 


009090 O00lc6b4 
o00092 


001264 


MACYI! 30/1046) O6- 
G73RG: ROUTINE FOR 
.SBTTL GTHRG: 
ae peer aes 
IN OUT A " ERROR 
CALL: GTYRG 
ATURG: 13R PC’ GT3RG 
MOV SRKDA, SREG3 
RTS C 
.SBTTL DELAY: 
Oe. NE PROV 
‘ROUTINE IS AN ENCOOED “1 Fe 


Ta bezay p PROVI 
Cam 


- IF _ USER 
-GET A THOITER © SCOPE L 
- BE CHANGED TO SUIT T 

DELA.Y: MOV 

ADD 

1$: DEC 

BNE 

RTI 

.SBTTL 


; CON. RESET 
THIS, ROUTINE Se A CONTROL RESET AND WAITS FOR 
a RDY" FLAG TO mF WHEN THE FLAG 
AN EXIT IS MADE OUT ROUTINE. IF 
; DOES NOT Lm Rov O1gNf “ ie TIME AN ERROR MESSAGE 


1S GIVEN. NOTE THAT XXXXXX "ls THE PC WHERE ° 


~ 


CONTENTS OF RKCS, RK R RKOS 


SREG3 RESPECTIVELY 


L 
~JUN-77_ 14:40 
SETTING RKCS, RKER, RKOS 


VAR TABL 
AP’ 7“ RUCT 


PAGE 4 


TIME DELAY ROUTINE 


FORE 


FROM } 


ROUTINE FOR GETTING RKCS, RKER, RKOS, 


RK OR 


TA on DELAY. THE CALL FOR THIS 
TO 177777 


ANY OCTAL_NO. 
"Is 7: SN US CONVERT N TO DECIMAL) FOR 1iv2e 


CON. RESET: 


BC=KXXXXX 


-I5 CALLED. 
-CALL: CNT.RESET 
.SBT7TL CNY. 


CS=YYYY 


ROY: 


or DELAY TIME (EXMP: SHORT 
“ppoPs T one TEED. "N’ FOLLOWING ‘DELAY’ SHOULD 
NDIVIDUAL 


? 


;RETURN TO MAIN PROGRAM 


iGElay 5.1 


COUNT 


ER DELA 


st at") FOR WHICH 
PROVIDED 


SETS 


CONTROL REST ROUTINE 


*CNTRL-RDY" 


WAIT FOR CONTROL SESCY 


CNT. RESET" OF 


ROUTIN 


Y TO 


1 Srack oBOINTER TO SKIP CVER 
DOWN TO 0 


3 


— 


*\° 


ruruturututu 


SCAU SN ers it sid 


bb bb Po be be be De eo 
Baa 


rurorururururururururu 
SSB URR ISR 


rurururururururururufrurorurorururu 
> 0+ bb = b= b= bo be bs be Be bw be Be Be he Be 


+.B eD ORR E tore 


RE STU 


rorurururorrrrrr 
Tittle +e +e -0--e~-2--e-& +88 
*-C.000 NOU £iurme-to 


11 


cia @ Re Glee 


j 


0-11 ~ 1" “E, Kil = 
° -APR-" af 


eke 
Sa 


009091 
177800 
001170 
173504 
001170 
020008 


o0ss76 


000082 


005622 


173412 


TEST 1 


aoii 70 


173356 
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CNT .RDY: WAIT FOR CONTROL READY ROUTINE 
ey: ROUTINE WAITS FOR THE CONT ADY BIT TO SET AND WHEN IT 
EXITS Our. if WITHIN A CERTAIN Waitt ag TRL fo’ DOES. ss 
1 + Re FOR i ns WITH SRT POr aR HEMORY” 
AN_RST: MOV #1 ,BRK¢ : ISSUE A A CONTROL RESET 
MOV &- 3 :S COUNT 
BR CN. ROY+4 «SKIP OVER CN.RDY 
CN.RDY: CLR SRE 
1S: TSTB = ARKCS :DID CNTRL -RDY SET? 
BM! 38 : YE EX xT 
INC SREG3 WAITED L eins 
2s: By 4313. aSuR aie “$0,248 ? 
BNE 3$ -IF YES, SKIP TYPECUT 
TYPE 
MSG 
TYPE 6S$ :: TYPE ASCIZ STRING 
BR 4§ _ -:GET OVER THE ASCIZ 
--65§: .ASCIZ <15><12>/PC=/ 
é4¢: 
MOV (SP). -(SP) 
#2, (SP) 
TYPCC -GO TYPE PC IN THE MAIN PROGRAM 
WHERE ERROR OCCURRED 
TYPE 675 1 TYPE cle STRING 
_ BR 66S ;;GET OVER THE ASCIZ 
55878: LASCIZ 7 RKCS=/ 
MOV BRKCS, -( SP) :GET RKCS 
TYPOC -GO TYPE IT 
33: RTI “RETURN FROM THIS 
“ROUTINE TO THE MAIN 
: PROGRAM 
THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED 
: FROM THE SYSMAC.SML PACKAGE 
.SBTTL SCOPE HANDLER ROUTINE 
: , OEE EES EEEEEEEENEE NEE E HENGE EEEEEEE EN EEEEEELEREEEED 
 ETHIS ROUT INE ¢ CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;#AND LOAD THE TEST NUMBER $TSTNM ) INTO THE DISPLAY REG. (DISPLAY<7:2> : 
#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
- THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
: #SW14=1 LOOP ON 
eeu izi INHIBIT ITERATIONS 
- #SW09= 1 LOOP ON 
: SWO8= | LOOP ON TEST IN SWR<7:0> 
- CALL 
: SCOPE . :SCOPE=I0T 
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OPRKJE.PL1 19-APR-77 09:14 SCOPE HANDLER ROUTINE 
2222 o0se42 SSCOPE: 
2223 OOSb42 104407 CKSWR :: TEST FOR CHANGE IN SOFT-SWR 
2224 OOSE44 032777 O4C000 173266 1S: BIT #81714, ASWR ;;LOOP ON PRESENT TEST? 
2225 O0S652e O01111 BNE SOVER te IF SWi4=1 
-geeeeSTART OF CODE FOR THE XOR tt Reeeee 
O0S654 000416 $xTSTR: BR F BURLING ON THE © XOR” Nie CHO ES, 
3556 OOSe55 013746 ooo004 MOV QHERRVEC, - (SP) pay ie ee ait ERROR vert aie 
2230 be 012737 008702 990004 NOV ass gHERRV iiSET F 
2232 moe ieee ea MOV (SP)+. JHERRVEC pee THE ERROR, VECTOR 
3534 moe peeree S$ an hy > a) oe a RAL TIME OUT 
35 poses oo0004 MOV )+’ JHERRVEC Hi at ACK 8 TER 
2236 10 000423 BR 7$ THE PRESENT test | 
2237 005712 &$::#eeeeEND OF CODE FOR THE XOR ‘eaIprayen 
2238 71 932777 900400 173220 BIT ITO8, ISWR ON SPEC. TEST? 
1404 BEG 
2240 005722 127737 1732le 001102 CMPB 4s) SW, STSTNM TON THE RIGHT TEST?  SWR‘7:0> 
2241 005730 O0146e BEQ SOVER -:BR IF YES 
2242 005732 105727 001103 2s: TSTB = SERFLG -:HAS AN ERROR OCCURRED? 
2243 005736 001421 BEQ 3$ s NO 
2244 005740 123737 001115 091103 CMPB  §ERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED’ 
2245 005746 91015 BHI 24 - NO 
005750 032777 001000 173162 BIT 881709, JSWR ::LOOP ON ERROR? 
2247 005756 O01404 BEQ ef es F 
2248 760 013737 OO1110 O01106 735: MOV S_PERR,SLPADR = ::SET LOOP ADDRESS TO LAST SCOPE 
2249 766 900443 BR SOVER 
2250 005770 105037 001103 us: CLR8 $ERFLG : ZERO THE ERROR FLAG 
2251 005774 005037 O0le06 CUR STIMES ‘CLEAR THE NUMBER OF ITERATIONS 7S MAKE 
2252 O06000 o00415 BR 1g ESCAPE TO THE NEXT TEST 
2253 o06002 004000 173130 38: BIT #B1Ti1, aSWR -: INHIBIT ITERATIONS” 
2254 006010 001011 BNE 1$ es if S 
2255 O06012 737 001100 TST SPASS - ;;1F FIRST PASS OF PROGRAM 
2256 006016 001406 BEQ 1$ INHIBIT ITERATIONS 
2257 006020 005237 001104 INC SICNT : INCREMENT ITERATION COUNT 
2258 G060C4% 023737 O01206 001104 CMP STIMES,SICNT | ::CHECK THE NUMBER OF ETERAT IONS MADE 
2259 006032 002021 BGE R -:BR IF MORE ITERATION REQUI 
2260 006034 012737 OO00001 001104 1S: MOV #1, SICNT - INIT Ize THE ITERATION SDUNTER 
2261 OO6042 013737 OOblie O01206 MOV SMXCNT,STIMES ;; AUnBE OF ITERATIONS TO DO 
2262 006050 105237 901102 S$SVLAD: INCB $TSTNM -: COUNT TEST NUMBERS 
2263 O06054 011637 001106 MOV (SP), SLPADR ;;SAVE SCOPE LOOP ADDRESS 
2264 OO6060 011637 O01110 MOV (SP) $LPERR RROR LOOP ADDRESS 
2265 O06064 001219 CLR SESCHPE : CLEAR THE ESCAPE FROM ERROR BOORESS 
2266 006070 112737 O0000! 251115 MOVE SERMAX “ONLY ALLOW ONE(1) ERROR ON NEXT 7 
2267 006075 013777 001102 173026 S$OVER: MOV STeTHN aQISPLAY : DISPLAY TEST NUMBER 
2268 OO6104 013716 O01106 MOV SLPADR, (SP) “FUDGE RETURN ADDRESS 
2269 O0&110 ococoDe RTI -: FIXES PS 
270 A06112 doc0s6 EMXCNT: SC MAX. NUMBER OF ITERATIONS 
2272 
Se + FEF EEL EES ERLPRESEELSERELESALASLESEERRER ESSERE ELSRAARHRPATER LAS ADT DEES 
227 
e675 -SBTTL ERROR HANDLER ROUTINE 


5555 -$SWiS=! HALT ON ERROR 


ae ] nt. Rll 
KE. “si 19-APR 


2308 


e 
vee 


LIMO 
ee ed ed ee ed ee ee ee ed 


OUD Vora £ tue (> 


FEREN 


rue MRT NT AT ATA rmrurururururururururururururuirurururur 
(SRUTUTY 


Peres cel ee 
Cat Cantal 
C.bf\ie- 


atalsttab tata 
Ores POR Loe 
= -- 

mis 


ee 


8 
83g 
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PRRs 
oa 
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178785 
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1726-6 
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; *#SW13=! 
: #5W1O=1 
; #SWO9= 1 
-#SWle=1 
- G0 TO I SERRTYP 
SERROR: CKSWR 
7$: INCB 
BE 
MOV 
1$: INC 
MOV 
SUB 
MOVB 
IT 
BNE 
ISR 
TYPE 
2s: CMP 
BEQ 
TST 
BPL 
HAL T 
CKSWR 
3$: BIT 
BE9 
MOV 
BIT 
BES 
MOV 
4§: TST 
BE 
MOV 
cs: RTI 


INHIBIT ERROR TYPEOUTS 
L ON ERROR 


ON ERR 


SERFLG 
STSTNM, JD ISPLAY 


SERTT 
3 oe —- 


ne .Si7ere 
se aeSERRTYP 
e+e, J#4E 

.+10 

aSWR 

3$ 

amie. , aSWR 


SLPADR, (SP) 
#SWO9, ISWR 


4 
SLPERR. (SP) 
SESCAPE 


SESCAPE. (SP) 


ON ERROR 
CYCLE kane ERROR TO PREVIOUS ‘SCOPE’ 


OR 00 UA SWITCH ENTRY SEGLES™ 


oa a 
“mS 
am 
28 
& 


-——-—mD +CwH 
a 
~ 

2 Be 
w 
=§ og 
A BOMBER 
te 
oe 

i gas 
Fe 
irs 
S 
4 
i] 
qq 
a 


0 


our TF a | TEM COOE 


OUTS 
R ERROR ROUTINE 


IN ACTI] AUTOMATIC MODE’ 
HALT ON ERROF 


SERB AD Sees Roo 
aa” ep ee 
| ~< 
~ 


RROR! . 
» DOF THARE SWITCH ENTRY SEQUES™ 
H 

TURN ADRES FOR SwWlz 

RROR SWITCH SET? 
FUDGE RET 


: URN FOR LOOPING 
{CHECK FOR AN ESCAPE AODRE 
'BR_IF NONE 


RETURN ADDRESS FUR 


F NO 


s 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
peusaeganuscntomousnnascueesen cerns vaures rurremns ta triemine 


:STHES ROY 


fs 19 ee ReporteD, IT T SHEN OBTAIN HE “ERROR 


HE APPROPRIATE INFORMATION 


: #AND RePoRTS 


SERRTYP: 


SCRLF 
RO. - (SP) 


C 
ISSITEME.RC 
1$ 
SERRPC ,-: SP) 


2 
RO 
‘ 


WHC} 


pee TO DETERMINE 
$ERRTE , 


TABLE™ 
1 fon THE THE ERROR. 
>;"CARRIAGE RETURN” 8 “LINE FEEC™ 
-: SAVE RC 
::PICKUP THE ITEM INDEX 
if od TEI Nun NUMBER } RO, 
+ OWE SERPS 2OR welt 
ERROR 60 DRESS _ 
1360 TYP YPE=-0C AL ASCIICALL DIGITS 


BOLUS THE INDEX 50. THAT JT AIL 
. 3 SS. 


aust 


a 
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“Sante Bs SAR oes Saris ROR MESSAGE TYPESUT ROUTINE : 


BEE SBE SSS 901272 "Bb SSERRTE RO FORM TABLE POINTER 
2336 006326 caer 006336 MOV RO) +,2$ :3P K KUP ERROR : ne 3 SAGE" POINTER 
2337 ss 7 
333g oes | jO44Or ait en oERROR noon 
2339 006336 600000 a 2$: ; WORD 0 —_ . OR HESSAGE™ POINTER GOES HERE 
334; Soesss dteca> 95e56% s: ww tenn ee) HERDER BATE TEE 
5343 Doesee | SO4MOL a OE T 
3344 SpE se4 saggaa 4$: .WORD O oat A "eal - ‘SE Goes HERE 
2345S 006356 10440! 001213 TYPE SCRLF :: "CARR FEED” 
2346 011000 Ss: MOV (RO) ,RO PS et are “Tage” pBINTER 
2347 4 901004 BNE 30 TYPE 
e 012600 | 6$: MOV (SP)+,RO TORE RO 
2349 006370 10440: 901212 TYPE SCRLF :  eCARRIAGE RETURN” & “LINE FEED” 
350 90c207 ‘on RTS pc : + RETURN 
2352 006376 O1304¢ MOV aC RO}+,-(SP) 180M 8 g(RO)* FOR TYPEOUT 
: 906400 194402 TYPOC 3360 TyP -- cra ASCII(ALL DIGITS. 
2254 715 TST (RO) 3315 THERE THER NUMBER? 
2355 906404 001770 BEG 6S IF 
2356 OO6406 10440] 9006414 TYPE 8$ +: TYPE TWO(2) SPACES 
3357 O064!le 77) SR ?§ “LO 
2 906414 920040 90¢ gg: ASCIZ 4 / S TWOC2) SPACES 
2353 n96420 EVEN 
e261 .SBTTL TTY INPUT ROUTINE 
2362 < - SLERHRARLAPERSEERELSAR SARS LESHAS SALE AARALEFAPSESAAA LES SESE ESERE 
2363 " ENABL 
23tt > SSSSSSSSSAESRESSSHALSSSSRASESAAASSAALSRAERASSALEATSFSSALALFLSLAEFLLG 
23¢7 SESOFTWARE SWITCH REGISTER CHANGE 
2368 : ROUTINE IS ENTERED FROM THE TRAP HANDLER 
2365 “SERVICE THE TEST FOR CHANGE IN SOFTWARE Wy ie APRISTER TRAP CALL 
2370 » HEN ORERATING IN TTY FLAG MODE. 
2371 O06420 022737 900176 001140 $cCKSUR: eSWREG, >;1S THE SOFT-SWR SELECTED” 
2372 OO6426 091074 ENE 15S :: BRANCH IF NO 
2373 006430 105777 172510 TSTS 3 =s_s AS TKS ss GHAR THERE? 
2374 006434 190071 RPL 1S$ -IF NO. DON’T WAIT AROUND 
2375 006436 117746 172504 MOVB @STKB,-(SP) >: SAVE THE CHAR 
2376 442 042716 177600 BIC etC1?7?, (SP) ‘STRIP-OFF THE ASCII 
2377 446 022726 so0BGF CMP #7. (SP5+ -: 1S IT A CONTROL G? 
2378 Obese 001062 BNE 1s$ :iNO, RETURN TO USER , 
2379 4 122727 001134 o0000: CMPB 3s SATB, #1 -ARE WE RUNNING IN AUTO-MODE” 
2380 OOE462 OO14SE BEQ 1S$ : BRANCH IF YES 
4 10440! OO714S TYPE -$CNTLG ; sECHO CONTROL-G (¢6 
5365 SpEaec papi 007152 SGTSWR: TYPE He ERE tUBRENT SONTENTS 
2384 O06474 O1374E 000176 MOV SWREG, - (SP: Save SWREG FOR TYPEOUT ; 
5286 Bes TyPoc sities a Type --OC TAL BSETT (ALL DISITS) 
fe ieee tere eee 
2383 306512 196777 :72426 73 TST2 2s OSTKS HR THERE” 


“O-1i-DZRAI-E, RKLL BASIC LOGIC TEST 1 MACY11 30: ) O6-JUN-77 14:40 PAGE 4 
a pose. BAL ORRT LOGIC TEST 1 Ye Mati —"* 
2230 006516 190375 BPL 7 »- IF NOT TRY AGAIN 
2392 906520 117746 172422 MOVE aS$TKB.-(SP: --PICK UP CHAR 
2333 006554 S42716 177656 gic etc? (SP) hve if 7-BIT ASCI! 
3390 
233° 116530 921627 000025 9S: CMP (SP ), 825 bt is abe uh SONTROL-U” 
539g Oca fO440] OO7LYO PYPE |S SENTLU tO EC ECHO CONTROL-U (tU: 
2490 006542 062706 dcccd0s 208: ADD b&. SP -: IGNORE PREVIOUS INPUT 
s40i 006546 000757 BR 19$ -:LET'S TRY IT AGAIN 
3403 
2494 O0655C 921627 O00015 10$ CMP (SP). #15 -:1$ IT A <OR>? 
2405 006554 O010e2 16$ :: BRANCH IF NO 
2406 06556 oocoo4 TST 4(SP) ©: YES. IS IT THE FIRST CHAR? 
2407 é€ 001403 i1$ ge H IF Je 
2408 4 016677 OO0002 172346 MOV 2(SP), aSWR -: SAVE NEW 
3499 S72 062706 1s #6, SP -: CLEAR UP STACK 
2410 006576 10440! 001213 14$: TYPE SCRLE ; ECHO <CR> AND LF | 
2411 O06602 123727 001135 90900: CMPB 8s SINTAG, #1  :RE- E TTY KBD INTERRUPTS” 
suis BOE 12 ies; 900100 172324 SOY ate aSTKS ERO RABLE Wry KBD INTERRUP 
i r2 ‘ es UPTS 
2414 906620 bonba2 1S$: _—RTY : ? RETURN 
2415 O06622 004737 007344 163 ISR PC. $TYPEC ::ECHO CHAR 
2416 OO06626 Oe: CMP (SP), #60 ::CHAR < 0? 
cute fe59 > nn Se ima, 
. é Y > f °° 
5:8 SpeEO reat BGT 18% :: BRANCH IF YES 
2420 006642 042726 BIC #60, (SP)+ -:STRIP-OFF ASCI! 
ae DOBEYG 005756 nooade TST 2i3P) -:1S THIS THE FIRST CHAR 
l BEQ 1? + BRANCH IF YES 
Ae fee aoe - a ee ox 
Si5¢ Boeees BOETIE et tCC BD :}  BOGH POR NEW ONE. 
2426 O06662 ooocoe 17S: INC 2(SP) | ::KEEP COUNT OF CHAR 
2427 OO6666 OSEEIE 177776 BIS =2(SP), (SP) -:SET IN NEW CHAR 
2428 906672 000707 BR 75 ->GET THE NEXT ONE 
2429 06674 194401 oOOl212 183: TYPE SQUES >: TYPE ?<CR><LFD 
2430 006790 900720 QR 20$ :: SIMULATE CONTROL-U 
2431 -DSABL LSB 
ae 
ou ay os FSELKESHSAEESESEASSSALAASSLASRESAAALERESRAESSAAALAEALARARAARRARRELLEES 
size s ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
“2 : 
2437 : ROCHR i INPUT Q SINGLE CHARACTER FROM THE TTY 
2438 + RETURN HERE :: CHARACTER IS ON THE STACK 
2439 : »:WITH PARITY BIT STRIPPED OFF 
2440 , 
e352 } SROCHR: M SP),-<SP PUSH DOWN THE PS 
: Vv (SP). -{SP) e. * 
5435 ale go ai Ege ococo4 sg050e Ney 47SP$.27SP: i CRUE HE PS 
e444 006712 195777 17222 ig: TSTB) 02s MS TKS -: WAIT FOR 
2335 SOS7LE 1LO0z75 ‘SPL 1$ -:- 4 CHARACTER 


Meet tele fhe E. BAA Oba let ygle TEST 1 BOYS 0 LONG) ge Den IUNG 77 14:40 PAGE 47 
est 7 117766 172222 O00004 MOVE ares READ THE T 
ne he 


Sica oa 1pe933 172174 2s: fre Brus itarT ok HARACTER 


ee 3 es eau 172170 BOVE Ser iiGET CHARACTER. vane 
é j 
2488 O06 86 hao> ie 1o5e Op BIC neh ig KE IT a ASCII 
* 762 Oeeb2e7 00002! CMP P)+, bai itIS IT A CONTROL -@” 
2455 006766 001366 53 :;IF NOT DISCARD IT 
2456 006770 000750 BR 1$ 13 YES 
2457 006772 026627 009004 000140 3S: CMP 4(SP), #140 31 tT SE? 
2458 907000 OGc"97 BLT 44 $§ ANCH IF YE 
2459 026627 cOoocos 000175 CMP 4(SP), #175 :315 IT A SPECIAL CHAR” 
2460 007010 903003 BGT u$ 
2461 807012 O42766 oo0040 o00004 BIC #40,4(SP) ; {MAKE IT UPPER CASE 
e462 007920 9onode 48: RTI -GO BAC R 
2463  Aeennaennsuennaeensaneasatnssebbanennnennnennninnsascssersss ess 
sie gATHIS | ROUTINE WILL INPUT A STRING FROM THE T 
2466 i RDLIN »: INPUT A STRING FROM THE TTY 
2467 + RETURN HERE 3 ADDRESS | OF FIRST CHARACTER WILL BE ON THE STACK 
e466 a -: TERMINATOR WILL BE A BYTE OF ALL O'S 
2470 oC7022 910346 SRDLIN: MOV »:;SAVE R 
347] Bao g54 012703 007130 1S: MOV ReTyin R3 : GET AbORESS 
2472 907030 22703 007140 25: CMP aSTTYINSS..R3 +:;BUFFER FULL? 
2473 907034 101405 BLOS 4§ . > BR IF YES 
2474 19441 RDCHR :;GO READ ONE CHARACTER FROM THE TTY 
2475 007040 112613 MOVB  (SP)+, (R23) -:GET CHARACTER 
2476 007042 122713 900177 10S: CMPB 3 s«#177,, (R32) -:IS IT A RUBOUT 
2477 007046 001003 BNE 3$ ::SKIP IF NOT 
2478 007050 104401 oOOl2le 4g: TYPE $QUES | ;; TYPE A?” 
2479 007054 000763 BR g -CLEAR THE BUFFER AND LOOP 
2480 007056 111337 007126 2S: MOVE _—« (R33), 98 ECHO THE CHARACTER 
2481 O07062 104401 907126 TYPE 
suse 007066 122723 000015 CMPB i , (RB)+ ;;CHECK FOR RETURN 
1356 BNE -:LOOP IF NOT RETURN 
2484 007074 177777 CLRB -1(R3) > ;CLEAR RETURN (THE 1S) 
ose 007 100 04401 001214 T I Q LINE FEED 
1 12603 MOV (SP)+,R3 : :RESTORE R3 
2487 007106 O11646 MOV (SP). -(SP) ; ;ADJUST THE STACK AND PUT ADDRESS OF THE 
588 997110 16666 oo0004 900002 MOV 4(SP}.2(SP) . FIRST ASCII CHARACTER ON IT 
116 Ol 007130 o00004 MOV eSTTYIN, 4(SP) 
2490 007124 900002 RTI > RETURN 
2491 007126 000 9S: BYTE :j STORAGE FOR ASCII CHAR. TO TYPE 
2432 007127 900 “BYTE O :: TERMINA 
2493 907130 o000i0 S$TTYIN: .BLKB 8. © ; ; RESERVE 8 BYTES FOR TTY INPUT 
2494 007140 052536 oosoi5 000 $CNTLU: .ASCIZ /tU/<15><1l2> ROL ™ ny 
aie 007145 36 006507 OOO0Dl2 S$CNTLG: .ASCIZ /tG/<1S><1le :  EONTROL 
1 ogsaie 953523 O20lee SMSWR: .ASCIZ <15><l2>/SWR = / 
2497 007160 75 900 
2498 007163 O40 047040 OS3S50S SMNEW: .ASCIZ / NEW = 
2499 007170 o36440 OocO4D 
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TYPE ROUTI 


5 RRARERA ERA ERERE RRA EEEE EERE ARERR EERE EE ERASER AE EE EEE ESSE EEE 
;RROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE Ligh AO BYTE. 


‘note MT NER TAN TE. Sante eae ee Be ME ER Picmacren 


: : SFILLS CONTAINS THE NUMBER OF FILLER le 
; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER 


: *CALL: 
-*1) USING A TRAP INSTRUCTION 
TYPE , MESADR -;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


: #OR 
;* TYPE 
: MESADR 
$TYPE 1s78 STPFLG :i15 THERE A TERMINAL? 
HALT 1 HALT IF NO TERMINAL 
1$ sv a (SP) AVE 
MOV detSP),RO ie OF ASC1Z STRING 
2$: MOVB ‘ )+,-(SP) R BE TYPED ONTO STACK 
at or i: aie Tie I SEEN e TP race 
= AbD 2) i BTUST. T RETURN PC 
+ BY + ROT URN 
4g: CHE BHT, (SP) t BRANCH IF <HT> 
cre ikea :;BRANCH IF NOT <CRLF> 
TST (SP)+ »;POP <CR><LF> EQUIV 
TYPE -: TYPE A CR AND LF 
CLRB CHARCNT ; CLEAR CHARACTER COUNT 
S TR PC. $TYPE ieee "th oan 
Pe: cP SFILLE TSP HB "hark FoR FILER rrER CHARS.” 
MOV $NULL , -{SP) foe # OF Gin R CHARS. “NEEDED 
73: DECB Ss SP) Ef TO BE TYPED? 
BLT bs nee : BR it POP THE NULL OFF OF STACK 
pece SCHARCNE 380 NOT cBUNT fc A COUNT 
7§ : = LOOP 
“HORIZONTAL TAB PROCESSOR 
$: MOVE #° , (SP) i ;REPLACE Tag WITH SPACE 
$: JSR Pc, $TYPEC -: TYPE A SPACE 
BITB 87, SCHARCNT ; BRANCH I IF NOT AT 
P)+ i ay ase OFF STACK 
2F 23 -GET NEXT CHARACTER 
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3558 meee S575 171600 STYPEC: T 8 Yi . »:WAIT UNTIL PRINTER IS READY 
t opo0002 171572 MOVE (SP), aSTPB ::LOAD CHAR TO BE TYPED INTO DATA RES. 
ee ries po001S cog00e MP3 ower T CHARACT RA CARRIAGE RETURN” 
907410 it HARCNT een CH bar HARACTER COUNT 
cere Gurare oooo12 ogoco2 1S RAP {SP ii5e A LINE FEED? 
Sepp BASdoR ABTGRS = RG thik +i ARR AAROETEB. 
2567 007406 105227 INCE (PC)+ : 3 COUNT THE CHARACT 
2568 007419 SCHARCNT: WORD 0 CHARACTER COUNT S BRACE 
2568 007412 9000297 STYPEX: RTS PC 
2571 
ee7e _SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
es74 : ee ete re NEED 1) CHANGE A IE -BIT BINARY NUMBER TO C-D! 
75 : ATHIS ROUT Ine 1 IS USE (10 CHANGE A Ibs -BIT BINARY NUMBER TO A 5S-DIGIT 
77 SNUNBER 8, P SGATIVE A SPACE QR'A NINUS SIGN WILL. BE. TYPES 
a GPRS OPT EB SP TOS ee BoD Ge ae 
2580 -*CALL: 
2581 : MOV NUM, - (SP) -:PUT THE BINARY NUMBER ON THE STAC 
2582 : TYPOS -:GO TO THE ROUTINE 
2584 OO7414 STYPDS: 
2585 907414 O10046 MOV RO, -(SP) -:PUSH RO ON STACK 
Be Brie sane my) ER Bh ar 
2588 007422 010346 MOV R3°-(SP) yt R3 ON eT Ack 
2589 007424 O10SH6 HOV RS (SP) js PUSH RS ON S ACK _ 
Seq) BOT4ae Gieeds Sandee Y $0800.56 :taBt Neu 
2592 007436 100004 BPL sR IF INPUT I 
3933 907440 405 NEG RS HeKE T BIN a RUHBER p 
11 pocoss 90000: MCVB = # =, 1 (SP) lee T rer aa 
Segp BY390s 007630 om bY KRG AUP TH pe 
S238 15353 000040 ol nove . | (R3)+ iu Mee I igor TO @ BLANK 
2595 016001 007620 MOV SOTBL(RO:.81 i8 T 
160105 3S: SUB RI.RS : FORM THIS ons ie 
2601 BLT 4g 3 . 
s60¢ INC Re :: INC HE BCD DIGIT BY 1 
sets 960105 GS ADD R1RS ADD BACK THE CONSTANT 
702 TST Re + Oe oe IF BCD DIGIT=0 
seo IBere fre (Be, et "Bathe LEADING Q'S? 
2603 106316 S$ SLB (6P eso? 
spi 1 20Ps 009001 177777 ave 1{SP). -1(R3) :7BR IF NO THE SIGN 
2612 OS2702 og0dEc 6S: BIS 0,82 :;MAKE THE BCD DIGIT ASCII ; 
2613 052702 occo4e 73; BIS a’ ‘RD -:MAKE IT A SPACE IF NOT ALREADY A DIGI” 
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ms 


a 


907630 
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000000 
000001 910063 
010065 


17777 
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ooocte 000004 
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CONVERT BINARY TC DECIMAL AND TYPE ROUTINE 


MOVB Re (R3)+ i sPUT THI CHARACTER IN THE OUTPUT BUFFER 
: ie + creck STABLE 
a x 
ght 8 b THe vent “iiee 
MOV RS, Re :: GET THE 
BR 6 : GO CHANGE 1 0 ASCH 
QS: ITB (SP)+ SHAS THE LSD T RST NON-ZERO” 
MO -1(SP),-2(R3) 3: BS THE FOR TYPING 
9S: cL AS} a ie TERRIRAYOR ; 
MOV (SP)+,R5 
MOV ( 1+, R3 +p STACK NTO oe 
MOV (5P)+' ::POP STACK INTO R 
MOV (SP)+:R1 $4 STACK INTO RI 
re i -POP STACK INTO 
V @ (SP). 4(SP) Nou TYPE De fur - 
RT! — -:RETURN TO USER 
SOTBL: 1 : ie | 
1Ap0 
iO, 
$DBLK: .BLKW 4 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Cg nny age ae a agape ns gr a antag 
: STHIS ROUTINE IS USED TO CHANGE re 16-BIT BINARY NUMBER TO A E-DIGIT 


BtrPbs. SE ag. Tee SUPPRESS ZEROS AND NUMBER OF DIGITS To TYFE 


ym NUM, - (SP) ;NUMBER TO BE TYPED 

; * + CALL FOR TYPEOUT 

: .BYT N ;;N=l TO & FOR NUMBER OF DIGITS TO TYPE 
- _BYTE ™ ;;M=1 OR O 

;# ;;1=TYPE LEADING ZEROS 

;# ;;0=S SS LEADING ZEROS 


-#STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


; #STYPOS OR STYPOC 


CALL: 
= MOV. «NUM, - (SP) NUMBER TC BE TYPED 
it TYPON tECALL FOR TYPEOUT 


 #§TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


’ RU 


: MOV NUM, - (SP) NUMBER TO BE TYPED 
STYPOS: MOV a(SP),-(SP) PICKUP THE MODE 
MOVB 1(5P),SOFILL : {LOAD ZERO FILL SWITC 
MOVB § (SP)+.$OMODE+1 ;;NUMBER OF DIGITS TO. TYPE 
ADC #2, (SP) ADJUST RETURN ADDRESS 
BR $TYPON 


l¥ “4 
7 we Ge HR A EL a 
i ooo00S 010062 


STYPON: MOVB  SOCNT ITERATION COUNT 

sie Sarr me 
re 12 DIOSHE Sys =P) FONE Re 
a8 o07715 113708 010065 NOB SOMOOE* is apye The NUMBER OF DIGITS TO TYPE 
2678 007722 062704 OO00006 ADO #6, RY SUBTRACT IT FOR MAX. ALLOWED 
2679 007726 110437 010064 MOVB ~ RY : : SAVE 
2680 007732 113704 010063 MOVE $OFILL,RY ‘GET THE ZERO a SWITCH 
2681 3 016605 o0001e HOV Le SP), RS j 3PICKUP THE T NUMBER 
Sc rns Sets s # iii eels 2 
2684 000404 BR 35 
2685 007750 006105 2s: ROL RS + ORM this DIGIT 

105 ROL R 

1 ROL R 

1 MOV RS.R3 
2689 007760 006103 2S: ROL R3 ;;GET LSB OF THIS DIGIT 
2690 105337 010064 DECB SOMODE ioe’ THIS DIGIT? 
3 age7e3 177770 ; saa Te 
26 l 1¢ #177770,R3 T RID OF JUNK 
sega ot Bpe704 TS RS HiT i gESS PHIS 0? 
oe toe wos « & & ES aes omre °° 
a o1 6008 te2703 MORO. R This OTGtT 
98 10010 000040 cs: BIS a’ 'R3 ascil va NOT ALREADY 
2699 010014 110337 010060 MOVE  R3,8S SAVE FOR YPING 
2700 010020 104401 9010060 TYPE a¢ ;3G0 TYPE THIS DIGIT 
2701 01002% 105337 010062 7$: DECB 4 =-« SOCNT + ro 
2702 010030 003347 BGT 2$ BR IF TO 00 
S04 Bt OOa Spe ns a a LAST DIG N'T A BLANK 
Sooe blouse BuTa4 6 OO cee last pict? 
2706 O10040 012605 6S: MOV (SP +,B5 
2707 010042 012604 MOV (SP)+°RY 
2708 O10044 012603 MOV (SP)+'R3 : eae Ra 
2709 O10046 O16666 o00002 s00004 MOV 2(SP)/4(SP) re THE STACK FOR RETURNING 
2710 QO100SH 012616 MOV (SP)+' (SP) 
2711 010056 oog002 RTI 
2712 O10060 000 QS: .BYTE 0 STORAGE FOR ASCII DIGIT 
2713 010061 900 “BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
2714 O10062 900 SOCNT: .BYTE 0 ;;OCTAL DIGIT C 
2715 O10063 000 SOFILL: .BYTE O ZERO FILL ar 
716 010064 ooo000 SOMODE: .WORD 0 : | NUMBER OF DIGITS TO TYPE 
$718 .SBTTL TRAP DECODER 
2720 L SASRRCSRSEPREDOSS DES DESSEESERE SEAN eTS Or tar TRAP” TET TT 
2721 : ATHIS ROUTINE WILL PICKUP THE 7LOWER BY TE OF THE “TR INSTRUCTION 
272e ‘AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
e723 :*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
2724 >*G0 TO THAT ROUTINE. 
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DECODER 
? l l STRAP: V RO, -(SP) s 

5558 5tbO% BI REGB oo0002 NOV 2($P).RO ier The /AQORESS 
2728 010074 TST =(RO) 
2729 010076 111000 MOVE (RO),RO ieee RIGHT VTE OF TRAP 
2730 919100 . ASL sHTOSL TION FQ8 JNOEXING 
2731 O101 16 010122 MOV $TRPAD(RO),RO 
o73e 010106 000200 RTS RO ::G0 TO ROUTI 
2734 
3735 >; THIS IS USE TO HANDLE THE “GETPRI” MACRO 
2737 O10110 011646 STRAP2: MOV (SP), -(SP) -:MOVE THE 
2738 O10ll2 O16666 OoO00004 onD002 MOV 4(SP),2(SP) ; MOVE THE Be Wl OOOUN 
2739 010120 oco0de RTI a ORE THE PSW 
eral .SBTTL TRAP TABLE 

3 - THIS Tg CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
ety -*BY THE “TRAP” INSTRUCTION. 
2746 . ROUTINE 
2747 oa 
2748 010122 010110 $TRPAD: .WORD 2 
2749 010124 007174 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 
3750 919126 6 STYPOC ;;CALL=TYP AP+2(1 ) TYPE OCTAL NUMBER (WITH LEADING ZEROS” 

1 610130 007640 STYPOS ; ;CALL=TYP TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
2752 010132 007700 STYPON ::CALL=TYPON § TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL; 
2733 019134 007414 STYPDS CALL=TYPDS TRAP+S5(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
2735 010136 006470 SGTSWR ;;CALL=GTSWR §§ TRAP+6(104406) GET SOFT-SWR SETTING 
2757 O10140 o06420 SCKSWR ;;CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
2758 910142 906702 SRDCHR i CALL =ROCHR TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 
2759 010144 007022 SROLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
e761 010146 OOSSI6 ‘ CN.RST ;;CALL=CNT.RESET TRAP+12( 104412) CONTROL RESET ROUTINE 
3763 010150 005534 CN.RDY ;;CALL=CNT.RDY TRAP+13(104413) WAIT FOR CNTRL RDY TO SET 
3766 010152 005474 DELA.Y ;;CALL=DELAY § TRAP+14(104414) TIME DELAY ROUTINE 
2767 
5768 .SBTTL POWER DOWN AND UP ROUTINES ; 
2770 is. = REL ERLE EN AER ERASER EERE EKER AKER EERE AERA EAR RRL AEA RA RELL RE 
2771 “POWER DOWN ROUTINE 
2772 O10154 012737 010320 oco0024% $PWRDN: MOV aSILLUP DSPWRVEC ;;SET FOR FAST UP 
2773 Ol0l6e O12737 o0034C 000026 MOV 0. J#PWRVEC+2 , :PRIO: 
2774 010170 010046 MOV Ro. tSP) i fo ON STACK 
2775 010172 O10146 MOV Ri} -(SP) ::PUSH R1 ON STACK 
2776 010174 O10e46 . MOV Re, -(SP) ->PUSH Re ON STACK 
2777 010176 O10346 MOV R3,-( SP) ;;PUSH R3 ON STACK 
2778 010200 O10446 MOV RY’ -(SP) ‘PUSH R4 ON STACK 
2779 010202 O10S4E MOV RS.-(SP) PUSH RS ON STACK 
2780 910204 017746 170730 MOV JSWR, -(SP) ;§ PUSH JSWR ON STACK 
2781 O10210 010637 010324 MOV SP, SSAVRE -: SAVE SP 
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CV ECE. cde TEC DOUN ANB UP CROUTINES 
3738 aes j 010226 o00024 MOV SSPWRUP, JePWRVEC ;;SET UP VECTOR 
e784 Ol 000776 BR “2 ;;HANG UP 
2785S 
se ESEEASESSERRAA SERRE AAS AE AGREES REE E REESE EERE EES EES E5040 9 9404 
“POWER UP ROUTI 
5788 010226 012737 010320 o00024 $PWRUP: MOV SSILLUP, J#PWRVEC iASET FOR FAST DOWN 
010234 013706 910324 MOV SSAVRE , SP -: GET SP 
2790 Ol 010324 CLR SSAVRE -:WAIT LOOP FOR THE TTY 
2791 Ol 010324 1S: INC VRE :: WAIT FOR THE INC 
2732 Ql 001 BNE 1$ - OF 
2793 0102 12677 170662 MOV (SP) +, O5HR -:POP STACK NTO OSWR 
ae 0102s 1 MOV (SP)+: : + POP STACK NTO 
10260 01 MOV (SP)+,R4 ;;POP STACK INTO RY 
27% 01debe 012603 MOV (SP )+'R3 ::POP STACK INTO R3 
2797 ‘(Ol 012602 MOV (5P)+;Re -:POP STACK INT 
2758 Ol ol I MOV (SP)+'R1 ::POP STACK INTO RI 
2799 «(Ol l MOV (SP)+'RO ::POP STACK INTO RO 
2g00 Ol 01 010154 oo00e4 MOV SSPWRON, JSPURVEC’:-SET UP THE POWER DOWN VECTOR 
2801 910300 Ole737 o0034C 900026 MOV #340, J8PWRVEC+2 ;-PRIO:7 
2ed2e Ol 104401 TYPE ‘REPORT THE POWER FAILURE 
3803 010310 Ol SPWRMG: .WORD  SPOWER ::POWER FAIL MESSAGE POINTER 
010312 16 MOV (PC) +, (SP) RESTART AT PFSTRT 
280s 010314 16 SPWRAD: .WORD PFSTRT - RESTART ADDRESS 
2806 610316 o00002 RTI : 
2807 010320 900000 SILLUP: HALT >; THE POWER UP SEQUENCE WAS STARTED 
2308 01032¢ 000776 BR 2 -: BEFORE THE POWER DOWN WAS COMPLETE 
2809 Ol oo000¢ SSAVRE: 0 -:PUT THE SP HERE 
2819 010326 OOSOIS o47S520 O42S2e7 SPOWER: .ASCIZ <15><12>"POWER™ 
281; 010334 900122 
2812 EVEN 
2813 
si 4 -ERROR MESSAGES 
28:8 _SBTTL ERROR MESSAGES 
2818 010336 O44524 O42515 C4744O EM: -ASCIZ /TIME OUT ON RK11 REGISTER- 
2819 910344 OS2eleS 947440 O20116 
2820 010352 o4SSe22 051049 
2821 010360 O43S50S 0S1511 
2822 010366 900122 
SBo4 010370 o42S22 OY 052123 EMe: LASCIZ /REGISTER NOT CLEARED’ 
2825 010376 OS110S 047040 9052117 
2826 O10404 O41440 042514 251101 
2827 O10412 O4e2105 
sess 010415 l2e O41513 020123 EN2: LASCIZ /PKCS ERROR’ 
2630 010422 oOS110S c47S22 O60le2e 
2832 010430 o4ss22 051503 O4244O EM: -ASCIZ /RKCS ERROR-ON WRITING READ ONLY BITS 
O10436 OSll2e 051117 o474SS 
2824 OLON4H4 020116 OS1127 052111 
2625 10452 047111 Oe0107 O4eSe 
283 C1O460 O42101 O4744O O4ELIE 
2627 SID4MGE 02013! O44S02 os1S24 
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ERROR DATA POINTERS 
SERRPC , SREGO,O 
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MO-L1-DZRAI-E, QSki1 BASIC LOGIC TEST i MA@CY1L1 30(104%6) O68-JUN-7 4:4) POGE SS 
DORK TE. P LI 19-@PR-77 99:14 SYMBOL TABLE 
a nd ee a nn ae 
= id ‘ 4 
SITQ = waceah DT] O11476 RKBA 1254 ret3 503464 ae oo 18 
Sitby = pooobS Brso Ot tet RDA ODO LSEE atta am seer pt tsa 
T = } as 
SiTd2 = eaten 0721 011530 RKDB O0le60 rerte 03706 Herat C 
SIT03 = °T26 011534 RKOS 001244 TST16 OO4O14 SGTSWR 906470 
SITOS = EMTVEC= 000030 KER 0012e%6 TST17 QOO4066 $40 = 
fete = EM} 010336 RKPRI 001266 TSTe 002504 SICNT QOO1194 
8'TO& = EMiO 010656 KVEC 001270 TSTeD 86004174 StL ble Rae 
SiTo? = EMI} 010703 RKWC 0012Se2 TSTel 004250 SINTAG 1135 
SIT98 = EM13 O10716 b =%000006 TSTee O04410 SITEME OO1114 
ed pie OOaF3 lack = BOrTbG ee att Sear Sorioe 
Bitlo = en? O1;008 Stat ~ Ob1GNe 1313) Saes70 SiPemn 901115 
siti = ergo O1i0¥e Tuts 1792778 131s See ie Or i8e 
b i c 
etttd = BSBpo BSS tit athe «6 BBATZE fat8 = BGatOs ure Borie 
SIT1S = 100000 EM2Y Ollele SWO = Q00001 TYPDS = 104405 SNWTST= O0O0C! 
Bite = 000004 EMeS 011266 SWOO = TYPE = 104401 SOCNT 010062 
EIT3 = O00010 EM26 011321 SWOl = TYPOC = 104402 3 019064 
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